On Tue, 26 May 2009 12:46:36 -0400
Raymond Toy <raymond.toy(a)stericsson.com> wrote:
o I used to use recycle.xpm as my gc-pointer-shape, but I note that
that doesn't work either. (I think that's also been broken for ages
and I never noticed.)
Here's what I do. I prefer the xbm because I can make it green like
the real recycle symbol. But you can see I default to the xpm if the xbm
isn't found or I am running on windoze.
So of all that code, you only need the last line. You might want to try
the xbm though.
Cheers,
Sean
;; -------
;; Pointer used during garbage collection.
;; .xbm not supported under windoze
(when running-xemacs
(let ((img (locate-data-file "recycle-image.xbm"))
(mask (locate-data-file "recycle-mask.xbm")))
(if (and img mask (file-exists-p img) (file-exists-p mask)
(not running-windoze))
(set-glyph-image gc-pointer-glyph
(vector 'xbm
:file img
:mask-file mask
:foreground "black"
:background "chartreuse1"))
(set-glyph-image gc-pointer-glyph "recycle2.xpm"))))
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta