| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/tool-bar.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@402 Toggle the tool bar in all graphical frames (Tool Bar mode).
If called interactively, enable Tool-Bar mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for
conveniently adding tool bar items.
(defalias 'tool-bar-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203 \312\202 \311\313 \314 \211 \2037
@\315\f\316 #\210
A\211\204' *\316 \236\203J \316 B\317\316 \"B )\n\203[ \320\321!G\312U\203[ \322 \210\323\324\n\203e \325\202f \326\"\210\327\330!\203\215 \306 \203z \306 \232\203\215 \331 \332\333\n\203\207 \334\202\210 \335 #\210))\336 \210\n\207" [#1=#:last-message arg tool-bar-mode val frame --dolist-tail-- current-message toggle prefix-numeric-value 0 1 frame-list nil set-frame-parameter tool-bar-lines assq-delete-all default-value tool-bar-map tool-bar-setup run-hooks tool-bar-mode-hook tool-bar-mode-on-hook tool-bar-mode-off-hook called-interactively-p any "" message "Tool-Bar mode %sabled%s" "en" "dis" force-mode-line-update default-frame-alist local] 5 (#$ . 409) (list (or current-prefix-arg 'toggle))])
(defvar tool-bar-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [tool-bar-mode-map tool-bar-mode-hook variable-documentation put "Hook run after entering or leaving `tool-bar-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode tool-bar-mode nil boundp] 6)
#@112 Toggle tool bar on or off, based on the status of the current frame.
See `tool-bar-mode' for more information.
(defalias 'toggle-tool-bar-mode-from-frame #[(&optional arg) "\301=\203 \302\303\304\305\"\306V\203 \306\202 \307!\207\302!\207" [arg toggle tool-bar-mode frame-parameter nil tool-bar-lines 0 1] 4 (#$ . 2093) (list (or current-prefix-arg 'toggle))])
#@208 Keymap for the tool bar.
To override the global tool bar, define this variable
buffer-locally and add the items you want to it with
`tool-bar-add-item', `tool-bar-add-item-from-menu' and related
functions.
(defvar tool-bar-map (make-sparse-keymap) (#$ . 2466))
(byte-code "\300\301\302\303\304!\305BB\"\207" [global-set-key [tool-bar] menu-item purecopy "tool bar" (ignore :filter tool-bar-make-keymap)] 5)
(defconst tool-bar-keymap-cache (make-hash-table :weakness t :test 'equal))
#@182 Generate an actual keymap from `tool-bar-map'.
Its main job is to figure out which images to use based on the display's
color capability and based on the available image libraries.
(defalias 'tool-bar-make-keymap #[(&optional _ignore) "\303 B\304 \n\"\206 \305 \306 \n#)\207" [tool-bar-map key tool-bar-keymap-cache frame-terminal gethash puthash tool-bar-make-keymap-1] 4 (#$ . 2957)])
#@65 Generate an actual keymap from `tool-bar-map', without caching.
(defalias 'tool-bar-make-keymap-1 #[nil "\301\302\"\207" [tool-bar-map mapcar #[(bind) "\304\211\n\243\242\305=\203r \306\n8:\203 \307\202 \306\n\233\211\203r \310\311\"\211\203r :\203r @\303=\204r \312 @!\203r \313 \204E \304\202r \314 !\211\203S \315 !\204X \316 \317\"\320\n!\306\n8:\203g \307\202h \306\n\233\321\311 #\210)\n*\207" [plist image-exp bind image nil menu-item 4 5 plist-get :image fboundp display-images-p eval image-mask-p append (:mask heuristic) copy-sequence plist-put] 5]] 3 (#$ . 3353)])
#@682 Add an item to the tool bar.
ICON names the image, DEF is the key definition and KEY is a symbol
for the fake function key in the menu keymap. Remaining arguments
PROPS are additional items to add to the menu item specification. See
Info node `(elisp)Tool Bar'. Items are added from left to right.
ICON is the base name of a file containing the image to use. The
function will first try to use low-color/ICON.xpm if `display-color-cells'
is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
ICON.xbm, using `find-image'.
Use this function only to make bindings in the global value of `tool-bar-map'.
To define items in any other map, use `tool-bar-local-item'.
(defalias 'tool-bar-add-item #[(icon def key &rest props) "\305\306 \n \f&\207" [icon def key tool-bar-map props apply tool-bar-local-item] 7 (#$ . 3952)])
#@64 Return an expression that evaluates to an image spec for ICON.
(defalias 'tool-bar--image-expression #[(icon) "\306\307\310\"\306\307\311\"\312=?\205 \310D \312=?\205 \311 D\244\313\314\315 \316PF \313\314\315\317 \316QF \320\313\321\315 \322PF\n\" \320\313\323\315 \324PF\n\" \325\326\327\330
\fFDD\331\330
\f FDD\332\330\f EDDF.D\207" [fg bg colors icon xpm-spec xpm-lo-spec face-attribute tool-bar :foreground :background unspecified :type xpm :file ".xpm" "low-color/" append pbm ".pbm" xbm ".xbm" find-image cond (not (display-color-p)) quote (< (display-color-cells) 256) t pbm-spec xbm-spec] 9 (#$ . 4797)])
#@552 Add an item to the tool bar in map MAP.
ICON names the image, DEF is the key definition and KEY is a symbol
for the fake function key in the menu keymap. Remaining arguments
PROPS are additional items to add to the menu item specification. See
Info node `(elisp)Tool Bar'. Items are added from left to right.
ICON is the base name of a file containing the image to use. The
function will first try to use low-color/ICON.xpm if `display-color-cells'
is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
ICON.xbm, using `find-image'.
(defalias 'tool-bar-local-item #[(icon def key map &rest props) "\306!\307\n\310 !\311\312 !\f\313
BBBBB#\210\314 )\207" [icon image-exp map key def props tool-bar--image-expression define-key-after vector menu-item symbol-name :image force-mode-line-update] 9 (#$ . 5439)])
#@602 Define tool bar binding for COMMAND in keymap MAP using the given ICON.
This makes a binding for COMMAND in `tool-bar-map', copying its
binding from the menu bar in MAP (which defaults to `global-map'), but
modifies the binding by adding an image specification for ICON. It
finds ICON just like `tool-bar-add-item'. PROPS are additional
properties to add to the binding.
MAP must contain appropriate binding for `[menu-bar]' which holds a keymap.
Use this function only to make bindings in the global value of `tool-bar-map'.
To define items in any other map, use `tool-bar-local-item-from-menu'.
(defalias 'tool-bar-add-item-from-menu #[(command icon &optional map &rest props) "\304\305 \306\307!\n &\207" [command icon map props apply tool-bar-local-item-from-menu default-value tool-bar-map] 7 (#$ . 6275)])
#@445 Define local tool bar binding for COMMAND using the given ICON.
This makes a binding for COMMAND in IN-MAP, copying its binding from
the menu bar in FROM-MAP (which defaults to `global-map'), but
modifies the binding by adding an image specification for ICON. It
finds ICON just like `tool-bar-add-item'. PROPS are additional
properties to add to the binding.
FROM-MAP must contain appropriate binding for `[menu-bar]' which
holds a keymap.
(defalias 'tool-bar-local-item-from-menu #[(command icon in-map &optional from-map &rest props) "\204 \306\307\"\310 \n\" \311
! \312\211 \f\312 \211 \203k @ \313 !\203b G\314V\203b \306\n\315 \316\317#\" \211GSH \320 !\203a 9\203a * A\211 \204% *9\203 \321!\203 \322!A\236\211 A@\323=\203\246 \324!\325!\326 A\327D\"##\210\202\332 A \324!\325! A\211 #:\203\310 #@:\203\310 #A#\326\323 @#E\327D\"#)#\210\330 .\207" [from-map global-map menu-bar-map command keys icon lookup-key [menu-bar] where-is-internal tool-bar--image-expression nil vectorp 1 substring 0 -1 keymapp boundp eval menu-item define-key-after vector append :image force-mode-line-update image-exp submap key k --dolist-tail-- kk m defn in-map props rest] 8 (#$ . 7100)])
(defalias 'tool-bar-setup #[nil "\303\304!\305\306\307\310\311\312\313\314&\210\305\315\316\310\311\317\313\314&\210\305\320\321\310\313\314%\210\305\322\323\310\313\314%\210\305\324\325\310\311\326%\210\327\330\331!\332 #\210\305\333\334\310#\210\327\330\331!\335 #\210\305\336\n\337\"\340\310\313\314%\210\305\336\n\341\"\342\310\313\314%\210\305\336\n\343\"\344\310\313\314%\210\327\330\331!\345 #\210\305\346\347\310\311\350\313\314&\207" [tool-bar-separator-image-expression menu-bar-separator menu-bar-edit-menu tool-bar--image-expression "separator" tool-bar-add-item-from-menu find-file "new" nil :label "New File" :vert-only t menu-find-file-existing "open" "Open" dired "diropen" kill-this-buffer "close" save-buffer "save" "Save" define-key-after default-value tool-bar-map [separator-1] undo "undo" [separator-2] lookup-key [cut] "cut" [copy] "copy" [paste] "paste" [separator-3] isearch-forward "search" "Search"] 8])
(byte-code "\300\301!\203 \302\303\304\305\306\307\310\311\312\313\314\315\316\317&
\210\320\321!\207" [featurep move-toolbar custom-declare-variable tool-bar-position 'top "Specify on which side the tool bar shall be.\nPossible values are `top' (tool bar on top), `bottom' (tool bar at bottom),\n`left' (tool bar on left) and `right' (tool bar on right).\nCustomize `tool-bar-mode' if you want to show or hide the tool bar." :version "24.1" :type (choice (const top) (const bottom) (const left) (const right)) :group frames :initialize custom-initialize-default :set #[(sym val) "\302 \"\210\303\304 BC!\207" [sym val set-default modify-all-frames-parameters tool-bar-position] 3] provide tool-bar] 14)