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

Reply via email to