callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plug-ins/script-fu/scripts/alien-glow-button.scm

Browse Source 
2003-05-17  Dave Neary  <bolsh@gimp.org>

        * plug-ins/script-fu/scripts/alien-glow-button.scm
        * plug-ins/script-fu/scripts/beveled-button.scm
        * plug-ins/script-fu/scripts/beveled-pattern-button.scm:
        Applied patch from Tor Lilliqvist <tml@iki.fi> which
        fixes the same problem as that reported in bug #77572.
This commit is contained in:
Dave Neary
2003-05-17 08:59:01 +00:00
committed by David Neary
parent e34d3621d7
commit b53cdf5f17
4 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -1,3 +1,11 @@
2003-05-17 Dave Neary <bolsh@gimp.org>
* plug-ins/script-fu/scripts/alien-glow-button.scm
* plug-ins/script-fu/scripts/beveled-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm:
Applied patch from Tor Lilliqvist <tml@iki.fi> which
fixes the same problem as that reported in bug #77572.
2003-05-16 Dave Neary <bolsh@gimp.org>
* plug-ins/script-fu/scripts/pupi-button.scm: Applied

6
plug-ins/script-fu/scripts/alien-glow-button.scm
View File

@ -70,11 +70,7 @@
(descent (text-descent text-extents))
(img-width (+ (* 2 padding)
(- (text-width text-extents)
(text-width (gimp-text-get-extents-fontname " "
size
PIXELS
font)))))
(text-width text-extents)))
(img-height (+ (* 2 padding)
(+ ascent descent)))
(layer-height img-height)

6
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -74,11 +74,7 @@
(descent (text-descent text-extents))
(img-width (+ (* 2 (+ padding bevel-width))
(- (text-width text-extents)
(text-width (gimp-text-get-extents-fontname " "
size
PIXELS
font)))))
(text-width text-extents)))
(img-height (+ (* 2 (+ padding bevel-width))
(+ ascent descent)))

5
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -50,10 +50,7 @@
(ypadding 6)
(width (+ (* 2 xpadding)
(- (text-width text-extents)
(text-width
(gimp-text-get-extents-fontname
" " text-size PIXELS font)))))
(text-width text-extents)))
(height (+ (* 2 ypadding)
(+ ascent descent)))