/[emacs]/emacs/lisp/toolbar/tool-bar.el
ViewVC logotype

Diff of /emacs/lisp/toolbar/tool-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by abraham, Tue Feb 19 10:30:30 2002 UTC revision 1.26 by abraham, Thu Feb 21 09:39:39 2002 UTC
# Line 47  With numeric ARG, display the tool bar i Line 47  With numeric ARG, display the tool bar i
47    
48  See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for  See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
49  conveniently adding tool bar items."  conveniently adding tool bar items."
50    :init-value t    :init-value nil
51    :global t    :global t
52    :group 'mouse    :group 'mouse
53    :group 'frames    :group 'frames
# Line 68  conveniently adding tool bar items." Line 68  conveniently adding tool bar items."
68                  (= 1 (length (default-value 'tool-bar-map)))) ; not yet setup                  (= 1 (length (default-value 'tool-bar-map)))) ; not yet setup
69             (tool-bar-setup))))             (tool-bar-setup))))
70    
71    ;;;###autoload
72    ;; We want to pretend the toolbar by standard is on, as this will make
73    ;; customize consider disabling the toolbar a customization, and save
74    ;; that.  We could do this for real by setting :init-value above, but
75    ;; that would turn on the toolbar in MS Windows where it is currently
76    ;; useless, and it would overwrite disabling the tool bar from X
77    ;; resources.  If anyone want to implement this in a cleaner way,
78    ;; please do so.
79    ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-21.
80    (put 'tool-bar-mode 'standard-value '(t))
81    
82  (defvar tool-bar-map (make-sparse-keymap)  (defvar tool-bar-map (make-sparse-keymap)
83    "Keymap for the tool bar.    "Keymap for the tool bar.
84  Define this locally to override the global tool bar.")  Define this locally to override the global tool bar.")

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26