Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 78f53ef88e17
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
630 :type '(repeat (cons :format "%v" 630 :type '(repeat (cons :format "%v"
631 (symbol :tag "Image Format" unknown) 631 (symbol :tag "Image Format" unknown)
632 (repeat :tag "Suffixes" 632 (repeat :tag "Suffixes"
633 (string :format "%v"))))) 633 (string :format "%v")))))
634 634
635 (defvar widget-glyph-pointer-glyph
636 (make-pointer-glyph [cursor-font :data "hand2"])
637 "Glyph to be used as the mouse pointer shape over glyphs.
638 Use `set-glyph-image' to change this.")
639
635 (defvar widget-glyph-cache nil 640 (defvar widget-glyph-cache nil
636 "Cache of glyphs associated with strings (files).") 641 "Cache of glyphs associated with strings (files).")
637 642
638 (defun widget-glyph-find (image tag) 643 (defun widget-glyph-find (image tag)
639 "Create a glyph corresponding to IMAGE with string TAG as fallback. 644 "Create a glyph corresponding to IMAGE with string TAG as fallback.
738 ;; currently a mess, so I'd rather not use it. 743 ;; currently a mess, so I'd rather not use it.
739 (set-extent-property extent 'invisible t) 744 (set-extent-property extent 'invisible t)
740 (set-extent-property extent 'start-open t) 745 (set-extent-property extent 'start-open t)
741 (set-extent-property extent 'end-open t) 746 (set-extent-property extent 'end-open t)
742 (set-extent-property extent 'keymap map) 747 (set-extent-property extent 'keymap map)
748 (set-extent-property extent 'pointer widget-glyph-pointer-glyph)
743 (set-extent-end-glyph extent glyph) 749 (set-extent-end-glyph extent glyph)
744 (unless (or (stringp help-echo) (null help-echo)) 750 (unless (or (stringp help-echo) (null help-echo))
745 (setq help-echo 'widget-mouse-help)) 751 (setq help-echo 'widget-mouse-help))
746 (when help-echo 752 (when help-echo
747 (set-extent-property extent 'balloon-help help-echo) 753 (set-extent-property extent 'balloon-help help-echo)