Lines Matching +defs:buffer +defs:menu
1 ;;; x-menu.el --- menu support for X
29 (defun x-menu-mode ()
32 with x-popup-menu, are implemented using XMenu primitives."
33 (make-local-variable 'x-menu-items-per-line)
34 (make-local-variable 'x-menu-item-width)
35 (make-local-variable 'x-menu-items-alist)
37 (make-local-variable 'x-menu-assoc-buffer)
38 (setq buffer-read-only t)
40 (setq x-process-mouse-hook 'x-menu-pick-entry)
41 (setq mode-line-buffer-identification '("MENU: %32b")))
43 (defvar x-menu-max-width 0)
44 (defvar x-menu-items-per-line 0)
45 (defvar x-menu-item-width 0)
46 (defvar x-menu-items-alist nil)
47 (defvar x-menu-assoc-buffer nil)
49 (defvar x-menu-item-spacing 1
50 "*Minimum horizontal spacing between objects in a permanent X menu.")
52 (defun x-menu-create-menu (name)
53 "Create a permanent X menu.
55 menu object whenever referring to the menu."
56 (let ((old (current-buffer))
57 (buf (get-buffer-create name)))
58 (set-buffer buf)
59 (x-menu-mode)
60 (setq x-menu-assoc-buffer old)
61 (set-buffer old)
64 (defun x-menu-change-associated-buffer (menu buffer)
65 "Change associated buffer of MENU to BUFFER.
66 BUFFER should be a buffer object."
67 (let ((old (current-buffer)))
68 (set-buffer menu)
69 (setq x-menu-assoc-buffer buffer)
70 (set-buffer old)))
72 (defun x-menu-add-item (menu item binding)
74 Following a sequence of calls to x-menu-add-item, a call to x-menu-compute
75 should be performed before the menu will be made available to the user.
78 button/key code as defined in x-menu.el."
79 (let ((old (current-buffer))
81 (set-buffer menu)
82 (if (setq elt (assoc item x-menu-items-alist))
84 (setq x-menu-items-alist (append x-menu-items-alist
86 (set-buffer old)
89 (defun x-menu-delete-item (menu item)
91 Call `x-menu-compute' before making the menu available to the user."
92 (let ((old (current-buffer))
94 (set-buffer menu)
95 (if (setq elt (assoc item x-menu-items-alist))
97 (set-buffer old)
100 (defun x-menu-activate (menu)
102 This must be called whenever a menu is modified before it is made
103 available to the user. This also creates the menu itself."
104 (let ((buf (current-buffer)))
105 (pop-to-buffer menu)
106 (let (buffer-read-only)
107 (setq x-menu-max-width (1- (frame-width)))
108 (setq x-menu-item-width 0)
110 (items-tail x-menu-items-alist))
114 (setq x-menu-item-width
115 (max x-menu-item-width
118 (setq x-menu-items-alist (reverse items-head)))
119 (setq x-menu-item-width (+ x-menu-item-spacing x-menu-item-width))
120 (setq x-menu-items-per-line
121 (max 1 (/ x-menu-max-width x-menu-item-width)))
122 (erase-buffer)
123 (let ((items-head x-menu-items-alist))
127 (<= (setq items (1+ items)) x-menu-items-per-line))
129 (int-to-string x-menu-item-width) "s")
137 (pop-to-buffer buf)))
139 (defun x-menu-pick-entry (position event)
140 "Internal function for dispatching on mouse/menu events"
141 (let* ((x (min (1- x-menu-items-per-line)
142 (/ (current-column) x-menu-item-width)))
145 (item (+ x (* y x-menu-items-per-line)))
146 (litem (cdr (nth item x-menu-items-alist))))
148 (pop-to-buffer x-menu-assoc-buffer))
150 (provide 'x-menu)
153 ;;; x-menu.el ends here