Mercurial > hg > xemacs-beta

comparison lisp/toolbar.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; This file is dumped with XEmacs (when toolbar support is compiled in). 29 ;; This file is dumped with XEmacs (when toolbar support is compiled in).
30 30
31 ;;; Code: 31 ;;; Code:
32
33 (defcustom toolbar-visible-p ;; added for the options menu - dverna apr. 98
34 (specifier-instance default-toolbar-visible-p)
35 "Whether the default toolbar is globally visible. This option can be
36 customized through the options menu."
37 :group 'display
38 :type 'boolean
39 :set '(lambda (var val)
40 (set-specifier default-toolbar-visible-p val)
41 (setq toolbar-visible-p val))
42 )
43
44 (defcustom toolbar-captioned-p ;; added for the options menu - dverna apr. 98
45 (specifier-instance toolbar-buttons-captioned-p)
46 "Whether the toolbars buttons are globally captioned. This option can be
47 customized through the options menu."
48 :group 'display
49 :type 'boolean
50 :set '(lambda (var val)
51 (set-specifier toolbar-buttons-captioned-p val)
52 (setq toolbar-captioned-p val))
53 )
54
55 (defcustom default-toolbar-position ;; added for the options menu - dverna
56 (default-toolbar-position)
57 "The location of the default toolbar. It can be 'top, 'bootom, 'left or
58 'right. This option can be customized through the options menu."
59 :group 'display
60 :type '(choice (const :tag "top" 'top)
61 (const :tag "bottom" 'bottom)
62 (const :tag "left" 'left)
63 (const :tag "right" 'right))
64 :set '(lambda (var val)
65 (set-default-toolbar-position val)
66 (setq default-toolbar-position val))
67 )
32 68
33 (defvar toolbar-help-enabled t 69 (defvar toolbar-help-enabled t
34 "If non-nil help is echoed for toolbar buttons.") 70 "If non-nil help is echoed for toolbar buttons.")
35 71
36 (defvar toolbar-icon-directory nil 72 (defvar toolbar-icon-directory nil
58 (list up-glyph down-glyph) 94 (list up-glyph down-glyph)
59 (list up-glyph)))))))) 95 (list up-glyph))))))))
60 96
61 (defun init-toolbar-location () 97 (defun init-toolbar-location ()
62 (if (not toolbar-icon-directory) 98 (if (not toolbar-icon-directory)
63 (setq toolbar-icon-directory 99 (let ((name (locate-data-directory "toolbar")))
64 (file-name-as-directory 100 (if name
65 (locate-data-directory "toolbar"))))) 101 (setq toolbar-icon-directory
102 (file-name-as-directory name))))))
66 103
67 (defun init-toolbar-from-resources (locale) 104 (defun init-toolbar-from-resources (locale)
68 (if (and (featurep 'x) 105 (if (and (featurep 'x)
69 (not (featurep 'infodock)) 106 (not (featurep 'infodock))
70 (or (eq locale 'global) 107 (or (eq locale 'global)