Hi Thomas,
..........................................
(define (script-fu-text-test inHeight inWidth )
(let*
(
(theImage (car (gimp-image-new inWidth inHeight RGB)))
(theLayer (car (gimp-layer-new theImage inWidth inHeight RGBA_IMAGE
"Layer 1" 100 NORMAL)))
)
(gimp-image-add-layer theImage theLayer -1)
(gimp-selection-all theImage)
(gimp-edit-clear theLayer)
(gimp-image-set-active-layer theImage theLayer)
(gimp-ellipse-select theImage 0 0 inHeight inWidth 2 TRUE 0 0) ;only
change
; neither this ...
(script-fu-selection-round 0 theImage theLayer "1.0")
; ...nor this works
;(perl-fu-round-sel 1 theImage theLayer 1)
(gimp-display-new theImage)
(gimp-image-clean-all theImage)
)
)
(script-fu-register
"script-fu-text-test"
"<Toolbox>/Xtns/Script-Fu/Text/Test1"
"create a box with a round selection (to create a nice button)"
"Thomas Stolt"
"copyright 2000, Thomas Stolt"
"5th of July 2000"
"" ;Image type that the script works on
SF-VALUE "Height:" "31" ;Button Height
SF-VALUE "Width:" "100" ;Button Width
)
........................................
This works here.
Hago
