I'm trying to write a batch scm to insert a comment into a tiff. Here is
the test code. It appears to function correctly but does not seem to add
the comment:

(define (batch-test pattern)
   (let* (
       (filelist (cadr (file-glob pattern 1)))
     (while filelist
       (set! filename (car filelist))
       (set! image (car (file-tiff-load RUN-NONINTERACTIVE filename filename)))
       (set! drawable (car (gimp-image-flatten image)))
       (set! gimp-comment "Some Test Text")
       (file-tiff-save RUN-NONINTERACTIVE image drawable "test.tif" "test.tif" 
       (gimp-image-delete image)
       (set! filelist (cdr filelist))

I have no idea if (set! gimp-comment "Some Test Text") is the right way of 
doing this but googling doesn't shed much light on it.

"I argue very well.  Ask any of my remaining friends.  I can win an
argument on any topic, against any opponent.  People know this, and
steer clear of me at parties.  Often, as a sign of their great respect,
they don't even invite me."
                -- Dave Barry

Gimp-user mailing list

Reply via email to