Mercurial > hg > xemacs-beta

comparison lisp/toolbar.el @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 90d73dddcdc4
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
36 (defvar toolbar-icon-directory nil 36 (defvar toolbar-icon-directory nil
37 "Location of standard toolbar icon bitmaps.") 37 "Location of standard toolbar icon bitmaps.")
38 38
39 (defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled) 39 (defun toolbar-make-button-list (up &optional down disabled cap-up cap-down cap-disabled)
40 "Call make-glyph on each arg and return a list of the results." 40 "Call make-glyph on each arg and return a list of the results."
41 (if (featurep 'x) 41 (let ((up-glyph (make-glyph up))
42 (let ((up-glyph (make-glyph up))
43 (down-glyph (and down (make-glyph down))) 42 (down-glyph (and down (make-glyph down)))
44 (disabled-glyph (and disabled (make-glyph disabled))) 43 (disabled-glyph (and disabled (make-glyph disabled)))
45 (cap-up-glyph (and cap-up (make-glyph cap-up))) 44 (cap-up-glyph (and cap-up (make-glyph cap-up)))
46 (cap-down-glyph (and cap-down (make-glyph cap-down))) 45 (cap-down-glyph (and cap-down (make-glyph cap-down)))
47 (cap-disabled-glyph (and cap-disabled (make-glyph cap-disabled)))) 46 (cap-disabled-glyph (and cap-disabled (make-glyph cap-disabled))))
55 (list up-glyph down-glyph disabled-glyph cap-up-glyph) 54 (list up-glyph down-glyph disabled-glyph cap-up-glyph)
56 (if disabled-glyph 55 (if disabled-glyph
57 (list up-glyph down-glyph disabled-glyph) 56 (list up-glyph down-glyph disabled-glyph)
58 (if down-glyph 57 (if down-glyph
59 (list up-glyph down-glyph) 58 (list up-glyph down-glyph)
60 (list up-glyph))))))) 59 (list up-glyph))))))))
61 nil))
62 60
63 (defun init-toolbar-location () 61 (defun init-toolbar-location ()
64 (if (not toolbar-icon-directory) 62 (if (not toolbar-icon-directory)
65 (setq toolbar-icon-directory 63 (setq toolbar-icon-directory
66 (file-name-as-directory 64 (file-name-as-directory