On (19:51 04/06/07), David Woodfall <[EMAIL PROTECTED]> put forth the
proposition:
> 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.
Ok fixed now:
(gimp-image-parasite-attach image (list "gimp-comment"
3
(bytes-append
string)))
Thanks again
>
> >
> > _______________________________________________
> > 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
--
Caution: breathing may be hazardous to your health.
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
