Lines Matching +defs:popup +defs:menu
124 ;; while. If you have menu system find the item "Table" under "Tools"
125 ;; and "Table" in the menu bar when the point is in a table cell.
363 ;; If a menu system is available a group of table specific menu items,
364 ;; "Table" under "Tools" section of the menu bar, is globally added
369 ;; point is placed inside of a table cell a table specific menu item
370 ;; "Table" appears directly on the menu bar. The commands in this
371 ;; menu give full control on table manipulation that include cell
373 ;; and unrecognizing. In addition to above two types of menu there is
374 ;; a pop-up menu available within a table cell. The content of pop-up
375 ;; menu is identical to the full table menu. [mouse-3] is the default
377 ;; menu. It can be reconfigured via `table-cell-map-hook'. The
378 ;; benefit of a pop-up menu is that it combines selection of the
852 (defvar table-disable-menu (null (and (locate-library "easymenu")
854 (fboundp 'easy-menu-add-item)))
855 "*When non-nil, use of menu by table package is disabled.
891 (defvar table-global-menu-map nil
892 "Menu map created via `easy-menu-define'.")
893 (defvar table-cell-menu-map nil
894 "Menu map created via `easy-menu-define'.")
981 ([mouse-3] . *table--present-cell-popup-menu)
1024 (defconst table-global-menu
1073 (defconst table-cell-menu
1248 ;; menu definition. Specifically the :help keyword is new in Emacs 21
1249 ;; and causes error for the XEmacs function `check-menu-syntax'. IMHO
1256 (defun table--tweak-menu-for-xemacs (menu)
1258 ((listp menu)
1259 (mapcar 'table--tweak-menu-for-xemacs menu))
1260 ((vectorp menu)
1261 (let ((i 0) (len (length menu)))
1264 (if (eq (aref menu i) :help) (aset menu i :included))
1266 (list table-global-menu table-cell-menu))
1269 ;; register table menu under global tools menu
1270 (unless table-disable-menu
1271 (easy-menu-define table-global-menu-map nil "Table global menu" table-global-menu)
1274 (easy-menu-add-item nil '("Tools") table-global-menu-map))
1275 (easy-menu-add-item (current-global-map) '("menu-bar" "tools") "--")
1276 (easy-menu-add-item (current-global-map) '("menu-bar" "tools") table-global-menu-map)))
2773 (x-popup-menu last-input-event
3935 ;; add menu for table cells
3936 (unless table-disable-menu
3937 (easy-menu-define table-cell-menu-map table-cell-map "Table cell menu" table-cell-menu)
3939 (easy-menu-add table-cell-menu)))
4125 (defun *table--present-cell-popup-menu (event)
4126 "Present and handle cell popup menu."
4128 (unless table-disable-menu
4131 (let ((item-list (x-popup-menu event table-cell-menu-map))
4132 (func table-cell-menu-map))
5337 Refresh the menu bar."
5349 Refresh the menu bar."