On (20:46 03/06/07), [EMAIL PROTECTED] <[EMAIL PROTECTED]> put forth the proposition: > 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))) > > ) > >
Hi and thanks for your help. Unfortunately I'm getting an execution error. It seems to be the gimp-image-parasite-attach line that's causing it. I tried a simple version and the parasite-find and detach lines seem to work. > > _______________________________________________ > Gimp-user mailing list > Gimp-user@lists.XCF.Berkeley.EDU > https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user -- f u cn rd ths, u cn gt a gd jb n cmptr prgrmmng. _______________________________________________ Gimp-user mailing list Gimp-user@lists.XCF.Berkeley.EDU https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
