OOPS! The 'if' statement should be "(if (null? errobj)". I had my  
logic backwards.

Quoting [EMAIL PROTECTED]:

> ;;----------------------------------------------------------
> ;; 'add-comment' attaches "gimp-comment" parasite to 'image'
> ;;               with the value of the passed 'string'
> ;;
>    (define (add-comment image string)
>      (*catch 'errobj
>        (gimp-image-parasite-find image "gimp-comment")
>        (if (not (null? errobj))
>          (gimp-image-parasite-detach image "gimp-comment")
>          )
>        )
>      (gimp-image-parasite-attach (list "gimp-comment"
>                                         3
>                                         (bytes-append string)))
>      )
>

_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

Reply via email to