Lines Matching +defs:add +defs:menu +defs:button
51 ;; The `printing' menu replaces the usual print options in the menu bar.
57 ;; menu and some extra options, all this on a buffer.
311 ;; it replaces the Tools/Print menu by Tools/Printing menu.
313 ;; it replaces the File/Print* menu entries by File/Print menu.
314 ;; Please, see section Menu Layout below for menu explanation.
316 ;; To use `printing' utilities you can use the Printing menu options, type M-x
437 ;; `pr-toggle-spool' interactively or through menu bar.
562 ;; `pr-menu-lock' Non-nil means menu is locked while selecting
565 ;; `pr-menu-char-height' Specify menu char height in pixels.
567 ;; `pr-menu-char-width' Specify menu char width in pixels.
571 ;; `pr-visible-entry-list' Specify a list of Printing menu visible
604 ;; click on menu-bar *Help* option,
617 ;; and click the *customize* hypertext button.
629 ;; f) or use menu bar, for example:
630 ;; click on menu-bar *File* option,
642 ;; The `printing' menu (Tools/Printing or File/Print) has the following layout:
679 ;; See `pr-visible-entry-list' for hiding some parts of the menu.
681 ;; The menu has the following sections:
687 ;; menu and some extra options, all this on a buffer.
692 ;; menu) or PostScript temporary file for a directory, a buffer, a region
709 ;; `*-mode*' commands or select Mode option in Printing menu. An
830 ;; 21. If you want that Printing menu stays open while you are setting
832 ;; `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
833 ;; menu position, so don't forget to adjust these variables if menu
845 ;; 24. Quick help for printing menu layout.
953 ;; `pr-menu-bind' Install `printing' menu in the menubar.
984 ;; printing menu (in `pr-menu-spec') merging suggestion.
1004 ;; - menu entry hiding.
1010 ;; - Tools/Printing menu.
1067 If SUFFIX is non-nil, add that at the end of the file name."
1101 (defalias 'pr-x-add-submenu 'add-submenu)
1104 (defalias 'pr-x-find-menu-item 'find-menu-item)
1107 (defalias 'pr-x-get-popup-menu-response 'get-popup-menu-response)
1110 (defalias 'pr-x-relabel-menu-item 'relabel-menu-item)
1150 "Update utility menu entry."
1153 (pr-menu-set-utility-title value)))
1157 "Update `PostScript Printer:' menu entry."
1160 (pr-menu-set-ps-title value)))
1164 "Update `Text Printer:' menu entry."
1167 (pr-menu-set-txt-title value)))
1307 (choice :menu-tag "Directory"
1323 function (see it for documentation) to update text printer menu."
1356 `pr-txt-name' variable setting and for menu selection.
1411 function (see it for documentation) to update text printer menu.
1454 (choice :menu-tag "Printer Name"
1471 function (see it for documentation) to update PostScript printer menu."
1509 `pr-ps-name' variable setting and for menu selection.
1613 function (see it for documentation) to update PostScript printer menu.
1711 (choice :menu-tag "Printer Name Switch"
1715 (choice :menu-tag "Printer Name"
1725 :menu-tag "Variable"
2171 (choice :menu-tag "Number of Header Lines"
2176 (choice :menu-tag "Left Header"
2180 (choice :menu-tag "Right Header"
2190 :menu-tag "Variable"
2223 function (see it for documentation) to update PostScript utility menu.
2258 `pr-ps-utility' variable setting and for menu selection.
2348 function (see it for documentation) to update PostScript utility menu.
2401 (choice :menu-tag "Paper Size"
2405 (choice :menu-tag "N-Up"
2409 (choice :menu-tag "Landscape"
2413 (choice :menu-tag "Duplex"
2417 (choice :menu-tag "Tumble"
2430 :menu-tag "Variable"
2446 (defcustom pr-menu-lock t
2447 "*Non-nil means menu is locked while selecting toggle options.
2449 See also `pr-menu-char-height' and `pr-menu-char-width'."
2455 (defcustom pr-menu-char-height
2460 "*Specify menu char height in pixels.
2463 menu, so don't forget to adjust it if menu position is not ok.
2465 See also `pr-menu-lock' and `pr-menu-char-width'."
2471 (defcustom pr-menu-char-width
2476 "*Specify menu char width in pixels.
2479 menu, so don't forget to adjust it if menu position is not ok.
2481 See also `pr-menu-lock' and `pr-menu-char-height'."
2568 (choice :menu-tag "Inheritance"
2580 :menu-tag "Variable"
2606 "*Specify a list of Printing menu visible entries.
2608 Valid values with the corresponding menu parts are:
2646 (choice :menu-tag "Menu Part"
2755 (defvar pr-menu-bar nil
2756 "Specify Printing menu-bar entry.")
2801 (if (fboundp 'easy-menu-intern) ; hacked from easymenu.el
2802 'easy-menu-intern
2816 (defconst pr-menu-spec
2831 pr-:help "Use buffer interface instead of menu interface")]
2876 ["Landscape" pr-toggle-file-landscape-menu
2881 ["Duplex" pr-toggle-file-duplex-menu
2886 ["Tumble" pr-toggle-file-tumble-menu
2938 ["Landscape" pr-toggle-file-landscape-menu
2943 ["Duplex" pr-toggle-file-duplex-menu
2948 ["Tumble" pr-toggle-file-tumble-menu
2981 ["Landscape" pr-toggle-landscape-menu
2984 ["Print Header" pr-toggle-header-menu
2987 ["Print Header Frame" pr-toggle-header-frame-menu
2990 ["Line Number" pr-toggle-line-menu
2993 ["Zebra Stripes" pr-toggle-zebra-menu
2996 ["Duplex" pr-toggle-duplex-menu
2999 ["Tumble" pr-toggle-tumble-menu
3002 ["Upside-Down" pr-toggle-upside-down-menu
3019 ["Spool Buffer" pr-toggle-spool-menu
3024 ["Print with faces" pr-toggle-faces-menu
3029 ["Print via Ghostscript" pr-toggle-ghostscript-menu
3035 ["Auto Region" pr-toggle-region-menu
3038 ["Auto Mode" pr-toggle-mode-menu
3041 ["Menu Lock" pr-toggle-lock-menu
3042 :style toggle :selected pr-menu-lock
3057 (defvar pr-menu-print-item "print"
3058 "Non-nil means that menu binding was not done.
3060 Used by `pr-menu-bind' and `pr-update-menus'.")
3063 (defun pr-menu-bind ()
3064 "Install `printing' menu in the menubar.
3066 On Emacs 20, it replaces the Tools/Print menu by Tools/Printing menu.
3068 On Emacs 21 and 22, it replaces the File/Print* menu entries by File/Print
3069 menu.
3077 (pr-x-add-submenu nil (cons "Printing" pr-menu-spec) "Apps"))
3078 (setq pr-menu-print-item nil))
3090 (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
3091 (when pr-menu-print-item
3092 (easy-menu-remove-item nil '("tools") pr-menu-print-item)
3093 (setq pr-menu-print-item nil
3094 pr-menu-bar (vector 'menu-bar 'tools
3098 (let ((menu-file (if (= emacs-major-version 21)
3099 '("menu-bar" "files") ; Emacs 21
3100 '("menu-bar" "file")))) ; Emacs 22 or higher
3102 (pr-menu-print-item
3103 (easy-menu-add-item global-map menu-file
3104 (easy-menu-create-menu "Print" pr-menu-spec)
3109 (easy-menu-remove-item global-map menu-file item))
3110 (setq pr-menu-print-item nil
3111 pr-menu-bar (vector 'menu-bar
3112 (pr-get-symbol (nth 1 menu-file))
3115 (easy-menu-add-item global-map menu-file
3116 (easy-menu-create-menu "Print" pr-menu-spec)))
3157 The `printing' menu (Tools/Printing or File/Print) has the following layout:
3194 See `pr-visible-entry-list' for hiding some parts of the menu.
3196 The menu has the following sections:
3202 menu and some extra options, all this on a buffer.
3207 menu) or PostScript temporary file for a directory, a buffer, a region
3223 `*-mode*' commands or select Mode option in Printing menu. An
3343 21. If you want that Printing menu stays open while you are setting
3345 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
3346 menu position, so don't forget to adjust these variables if menu
3358 24. Quick help for printing menu layout.
3367 The printing interface buffer has the same functionality as the printing menu.
3371 PostScript file and directory/buffer/region/mode processing; using menu, there
3406 `*-mode*' commands or select Mode option in Printing menu. An
3548 If you want that Printing menu stays open while you are setting
3550 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
3551 menu position, so don't forget to adjust these variables if menu
3591 Quick help for printing interface buffer and printing menu layout. You can
4177 (pr-toggle-file-duplex-menu t))
4189 (pr-toggle-file-tumble-menu t))
4196 (pr-toggle-file-landscape-menu t))
4203 (pr-toggle-ghostscript-menu t))
4210 (pr-toggle-faces-menu t))
4217 (pr-toggle-spool-menu t))
4224 (pr-toggle-duplex-menu t))
4236 (pr-toggle-tumble-menu t))
4243 (pr-toggle-landscape-menu t))
4250 (pr-toggle-upside-down-menu t))
4257 (pr-toggle-line-menu t))
4264 (pr-toggle-zebra-menu t))
4271 (pr-toggle-header-menu t))
4278 (pr-toggle-header-frame-menu t))
4283 "Toggle menu lock."
4285 (pr-toggle-lock-menu t))
4292 (pr-toggle-region-menu t))
4299 (pr-toggle-mode-menu t))
4327 (pr-menu-set-ps-title
4336 (pr-menu-set-txt-title
4345 (pr-menu-set-utility-title
4446 (pr-menu-set-ps-title select))
4490 (pr-menu-set-txt-title select-printer))
4510 Or choose the menu option Printing/Show Settings/printing."
4566 '(20 . pr-menu-lock)
4567 '(20 . pr-menu-char-height)
4568 '(20 . pr-menu-char-width)
4589 Or choose the menu option Printing/Show Settings/lpr."
4599 '(25 . lpr-add-switches)
4802 (defconst pr-menu-entry-alist
4810 "Alist that associates menu part with number of items per part.
4812 It's used by `pr-menu-index'.
4821 (defun pr-menu-index (entry index)
4840 (cdr (assq key pr-menu-entry-alist)))))))
4844 (defvar pr-menu-position nil)
4845 (defvar pr-menu-state nil)
4852 (defun pr-menu-position (entry index horizontal)
4854 'button-release
4855 (list 'button 1
4857 (* horizontal pr-menu-char-width))
4859 (* (pr-menu-index entry index) pr-menu-char-height)))))
4863 (defun pr-menu-position (entry index horizontal)
4868 (* (pr-menu-index entry index) pr-menu-char-height)))
4873 (defun pr-menu-position (entry index horizontal)
4877 (* horizontal pr-menu-char-width))
4879 (* (pr-menu-index entry index) pr-menu-char-height)))
4887 (defun pr-menu-lookup (path)
4888 (car (pr-x-find-menu-item current-menubar (cons "Printing" path))))
4891 (defun pr-menu-lock (entry index horizontal state path)
4892 (when pr-menu-lock
4893 (or (and pr-menu-position (eq state pr-menu-state))
4894 (setq pr-menu-position (pr-menu-position entry index horizontal)
4895 pr-menu-state state))
4896 (let* ((menu (pr-menu-lookup path))
4897 (result (pr-x-get-popup-menu-response menu pr-menu-position)))
4901 (setq pr-menu-position nil))))
4906 (defun pr-menu-lookup (path)
4909 (vconcat pr-menu-bar
4914 pr-menu-bar)))
4917 (defun pr-menu-lock (entry index horizontal state path)
4918 (when pr-menu-lock
4919 (or (and pr-menu-position (eq state pr-menu-state))
4920 (setq pr-menu-position (pr-menu-position entry index horizontal)
4921 pr-menu-state state))
4922 (let* ((menu (pr-menu-lookup path))
4923 (result (x-popup-menu pr-menu-position menu)))
4925 (let ((command (lookup-key menu (vconcat result))))
4929 (setq pr-menu-position nil)))))
4946 otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is
4947 non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is
4948 non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is
4951 If menu binding was not done, calls `pr-menu-bind'."
4953 (if pr-menu-print-item ; since v6.8.4
4954 ;; There was no menu binding yet, so do it now!
4957 (pr-menu-bind)
4958 ;; Here menu binding is ok.
4965 (defvar pr-ps-printer-menu-modified t
4966 "Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.")
4967 (defvar pr-txt-printer-menu-modified t
4968 "Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.")
4969 (defvar pr-ps-utility-menu-modified t
4970 "Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.")
4981 (defun pr-menu-create (name alist var-sym fun entry index)
5007 (pr-menu-alist pr-ps-printer-alist
5009 'pr-menu-set-ps-title
5011 'pr-ps-printer-menu-modified
5015 (pr-menu-alist pr-txt-printer-alist
5017 'pr-menu-set-txt-title
5019 'pr-txt-printer-menu-modified
5023 (let ((save-var pr-ps-utility-menu-modified))
5024 (pr-menu-alist pr-ps-utility-alist
5026 'pr-menu-set-utility-title
5032 (pr-menu-alist pr-ps-utility-alist
5034 'pr-menu-set-utility-title
5036 'pr-ps-utility-menu-modified
5043 (defun pr-menu-alist (alist var-sym fun menu-path modified-sym force name
5047 (pr-x-add-submenu menu-path
5048 (pr-menu-create name alist var-sym
5054 (defun pr-relabel-menu-item (newname var-sym)
5056 (pr-x-relabel-menu-item
5062 (defun pr-menu-set-ps-title (value &optional item entry index)
5063 (pr-relabel-menu-item (format "PostScript Printer: %s" value)
5067 (pr-menu-lock entry index 12 'toggle nil)))
5070 (defun pr-menu-set-txt-title (value &optional item entry index)
5071 (pr-relabel-menu-item (format "Text Printer: %s" value)
5075 (pr-menu-lock entry index 12 'toggle nil)))
5078 (defun pr-menu-set-utility-title (value &optional item entry index)
5081 (pr-x-relabel-menu-item
5084 (pr-x-relabel-menu-item
5090 (pr-menu-lock entry index 5 nil '("PostScript Print" "File"))))
5094 (pr-relabel-menu-item (cdr (assq value pr-even-or-odd-alist))
5098 (pr-menu-lock 'postscript-options 8 12 'toggle nil))))
5107 (pr-menu-alist pr-ps-printer-alist
5109 'pr-menu-set-ps-title
5111 'pr-ps-printer-menu-modified
5115 (pr-menu-alist pr-txt-printer-alist
5117 'pr-menu-set-txt-title
5119 'pr-txt-printer-menu-modified
5123 (let ((save-var pr-ps-utility-menu-modified))
5124 (pr-menu-alist pr-ps-utility-alist
5126 'pr-menu-set-utility-title
5132 (pr-menu-alist pr-ps-utility-alist
5134 'pr-menu-set-utility-title
5136 'pr-ps-utility-menu-modified
5143 (defun pr-menu-get-item (name-list)
5151 (menu (lookup-key
5153 (vconcat pr-menu-bar
5155 (assq name (nthcdr 2 menu)))))
5158 (defvar pr-temp-menu nil)
5161 (defun pr-menu-alist (alist var-sym fun menu-path modified-sym force name
5164 (easy-menu-define pr-temp-menu nil ""
5165 (pr-menu-create name alist var-sym fun entry index))
5166 (let ((item (pr-menu-get-item menu-path)))
5170 (setcar binding pr-temp-menu)
5177 (defun pr-menu-set-item-name (item name)
5182 (defun pr-menu-set-ps-title (value &optional item entry index)
5183 (pr-menu-set-item-name (or item
5184 (pr-menu-get-item "PostScript Printers"))
5188 (pr-menu-lock entry index 12 'toggle nil)))
5191 (defun pr-menu-set-txt-title (value &optional item entry index)
5192 (pr-menu-set-item-name (or item
5193 (pr-menu-get-item "Text Printers"))
5197 (pr-menu-lock entry index 12 'toggle nil)))
5200 (defun pr-menu-set-utility-title (value &optional item entry index)
5203 (pr-menu-set-item-name item name)
5204 (pr-menu-set-item-name
5205 (pr-menu-get-item
5208 (pr-menu-set-item-name
5209 (pr-menu-get-item
5214 (pr-menu-lock entry index 5 nil '("PostScript Print" "File"))))
5218 (pr-menu-set-item-name (pr-menu-get-item "Print All Pages")
5222 (pr-menu-lock 'postscript-options 8 12 'toggle nil)))))
5355 &optional path no-menu)
5358 (or no-menu
5359 (pr-menu-lock entry index horizontal state path)))
5362 (defun pr-toggle-file-duplex-menu (&optional no-menu)
5365 '("PostScript Print" "File") no-menu))
5368 (defun pr-toggle-file-tumble-menu (&optional no-menu)
5371 '("PostScript Print" "File") no-menu))
5374 (defun pr-toggle-file-landscape-menu (&optional no-menu)
5377 '("PostScript Print" "File") no-menu))
5380 (defun pr-toggle-ghostscript-menu (&optional no-menu)
5383 'postscript-process 2 12 'toggle nil no-menu))
5386 (defun pr-toggle-faces-menu (&optional no-menu)
5389 'postscript-process 1 12 'toggle nil no-menu))
5392 (defun pr-toggle-spool-menu (&optional no-menu)
5395 'postscript-process 0 12 'toggle nil no-menu))
5398 (defun pr-toggle-duplex-menu (&optional no-menu)
5401 'postscript-options 5 12 'toggle nil no-menu))
5404 (defun pr-toggle-tumble-menu (&optional no-menu)
5407 'postscript-options 6 12 'toggle nil no-menu))
5410 (defun pr-toggle-landscape-menu (&optional no-menu)
5413 'postscript-options 0 12 'toggle nil no-menu))
5416 (defun pr-toggle-upside-down-menu (&optional no-menu)
5419 'postscript-options 7 12 'toggle nil no-menu))
5422 (defun pr-toggle-line-menu (&optional no-menu)
5425 'postscript-options 3 12 'toggle nil no-menu))
5428 (defun pr-toggle-zebra-menu (&optional no-menu)
5431 'postscript-options 4 12 'toggle nil no-menu))
5434 (defun pr-toggle-header-menu (&optional no-menu)
5437 'postscript-options 1 12 'toggle nil no-menu))
5440 (defun pr-toggle-header-frame-menu (&optional no-menu)
5443 'postscript-options 2 12 'toggle nil no-menu))
5446 (defun pr-toggle-lock-menu (&optional no-menu)
5448 (pr-toggle 'pr-menu-lock "Menu lock"
5449 'printing 2 12 'toggle nil no-menu))
5452 (defun pr-toggle-region-menu (&optional no-menu)
5455 'printing 0 12 'toggle nil no-menu))
5458 (defun pr-toggle-mode-menu (&optional no-menu)
5461 'printing 1 12 'toggle nil no-menu))
6091 (pr-insert-radio-button 'pr-i-process 'buffer)
6092 (pr-insert-menu "Buffer List" 'pr-i-buffer
6164 (pr-insert-radio-button 'pr-i-process 'directory)
6188 (pr-insert-radio-button 'pr-i-process 'file)
6201 (pr-insert-menu "PostScript Utility" 'pr-ps-utility
6213 (pr-insert-menu "PostScript Printer" 'pr-ps-name
6230 (pr-insert-button 'pr-interface-preview "Preview" " ")
6231 (pr-insert-button 'pr-interface-ps-print "Print" " ")
6232 (pr-insert-button 'pr-interface-quit "Quit")
6234 (pr-insert-radio-button 'pr-i-ps-send 'printer)
6237 (pr-insert-radio-button 'pr-i-ps-send 'file)
6274 (pr-insert-menu "Text Printer" 'pr-txt-name
6277 (pr-insert-button 'pr-interface-printify "Printify" " ")
6278 (pr-insert-button 'pr-interface-txt-print "Print" " ")
6279 (pr-insert-button 'pr-interface-quit "Quit"))
6299 (pr-insert-toggle 'pr-menu-lock " Menu Lock\n ")
6336 (pr-insert-menu "Page Parity" 'ps-even-or-odd-pages
6349 (pr-insert-button 'pr-customize "printing" " ")
6350 (pr-insert-button #'(lambda (&rest ignore) (ps-print-customize))
6352 (pr-insert-button 'lpr-customize "lpr"))
6358 (pr-insert-button 'pr-show-pr-setup "printing" " ")
6359 (pr-insert-button 'pr-show-ps-setup "ps-print" " ")
6360 (pr-insert-button 'pr-show-lpr-setup "lpr"))
6366 (pr-insert-button 'pr-interface-help "Interface Help" " ")
6367 (pr-insert-button 'pr-help "Menu Help" " ")
6368 (pr-insert-button 'pr-interface-quit "Quit" "\n ")
6369 (pr-insert-button 'pr-kill-help "Kill All Printing Help Buffer"))
6606 (defun pr-insert-button (fun label &optional separator)
6607 (widget-create 'push-button
6614 (defun pr-insert-menu (tag var-sym choices &optional before after &rest body)
6616 (eval `(widget-create 'menu-choice
6630 (defun pr-insert-radio-button (var-sym sym)
6634 'radio-button
6639 (pr-update-radio-button (quote ,var-sym)))))))
6643 (defun pr-update-radio-button (var-sym)