Very simple script-fu not working

john_whorfin · **Joined:** Nov 21, 2010 **Posts:** 6

My very first script. I read through a bunch of tutorials, and can't figure out what I'm doing wrong.

I simply want to add a text layer to the current image. When I run the script, nothing appears to happen.

Eventually, I'll build this up to something that will resize an image, and put a caption in the new whitespace at the bottom. But this is my first hurdle.

Running GIMP 2.6.11 on Win 7.

Any insight would be appreciated. Thanks.

Code: Select all

(define (script-fu-foobar inImg inDrawable)
  (gimp-context-push)
  (gimp-image-undo-group-start inImg)
  
  (let*
    (
      (theTextLayer (gimp-text-layer-new inImg "hello" "Sans" 32 PIXELS))
      (gimp-image-add-layer inImg theTextLayer 0)
    )
    
  )

  (gimp-image-undo-group-end inImg)
  (gimp-displays-flush)
  (gimp-context-pop)
)

(script-fu-register
  "script-fu-foobar"                ;func name
  "Caption"                         ;menu label
  ""                                ;description
  ""                                ;author
  ""                                ;copyright notice
  ""                                ;date created
  "RGB, RGBA"                       ;image type that the script works on
  SF-IMAGE    "Image"    0
  SF-DRAWABLE "Drawable" 0
)

(script-fu-menu-register "script-fu-foobar" "<Image>/Stuff")

Oregonian · **Posted:** Sun Nov 21, 2010 3:04 pm **(#2)**

Hi John,

to Gimp Chat. Hope you enjoy yourself in here.

I moved your post to the Gimp Scripts and Plugins forum so those who do scripts/plugins will be more apt to respond to it.

O

saulgoode · **Posted:** Sun Nov 21, 2010 3:25 pm **(#3)**

john_whorfin wrote:

Code: Select all

      (theTextLayer (gimp-text-layer-new inImg "hello" "Sans" 32 PIXELS))

All values returned by PDB functions, when called from Script-fu, are placed within a list, even if the only thing being returned is a single value (e.g., a layerID). You need to extract that data from the list.

Code: Select all

      (theTextLayer (car (gimp-text-layer-new inImg "hello" "Sans" 32 PIXELS)))

john_whorfin · **Joined:** Nov 21, 2010 **Posts:** 6

Thank you saulgoode. I tried that, and still nothing.

I even renamed the menu inside my SCM file, and did a refresh to ensure I was editing the right file; and that it was being read in OK.

saulgoode · **Posted:** Sun Nov 21, 2010 4:39 pm **(#5)**

The call to 'gimp-image-add-layer' needs to be after the bindings block of the let* statement.

Code: Select all

  (let*
    (
      (theTextLayer (car (gimp-text-layer-new inImg "hello" "Sans" 32 PIXELS)))
      (gimp-image-add-layer inImg theTextLayer 0)
    )
    
  )

The above code is declaring a variable named 'gimp-image-add-layer'. You want to call it as a function:

Code: Select all

  (let* 
    (
      (theTextLayer (car (gimp-text-layer-new inImg "hello" "Sans" 32 PIXELS)))
    )
    (gimp-image-add-layer inImg theTextLayer 0)
  )

john_whorfin · **Joined:** Nov 21, 2010 **Posts:** 6

That worked!

Thank you so much for that! Ya know, you stare at something so long, and just miss obvious things.