I can't figure out the problem I am seeing on glyph.
I create glyphs with xpm images (normal/down) and annotate.
When I press it, test7 will be execute. It works if both xpm images exist.
If either glyph fallback to string, the string shows fine but test7 won't be
executed. As a matter of fact, if the glyphs are made from strings only
(no xpm),
it shows both strings but no execute.
Can somebody explain what is going on or send me some pointers glyph
examples?
****
(defun test8 ()
(interactive)
(setq glyph2 (make-glyph '([xpm :file "/home/tisogai/pixmaps/xmms.xpm"]
[string :data "glyph-text"])))
(set-glyph-face glyph2 'cperl-array-face)
(setq glyph2-d (make-glyph '([xpm :file "/home/tisogai/pixmaps/sand.xpm"]
[string :data "down-text"])))
(set-glyph-face glyph2-d 'dired-face-marked)
(setq anno2 (make-annotation
glyph2
(point)
'text
(current-buffer)
nil
glyph2-d
) )
(set-annotation-action anno2 'test7)
)
--------
This e-mail may contain confidential and privileged material for the sole use of the
intended recipient. If this email is not intended for you, or you are not responsible for
the delivery of this message to the intended recipient, please note that this message may
contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you
are strictly prohibited from downloading, photocopying, distributing or otherwise using
this message, its contents or attachments in any way. If you have received this message
in error, please notify us immediately by replying to this e-mail and delete the message
from your mailbox. Information contained in this message that does not relate to the
business of SEAKR is neither endorsed by nor attributable to SEAKR.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta