41 |
|
|
42 |
(defvar widget-browse-mode-map nil |
(defvar widget-browse-mode-map nil |
43 |
"Keymap for `widget-browse-mode'.") |
"Keymap for `widget-browse-mode'.") |
44 |
|
|
45 |
(unless widget-browse-mode-map |
(unless widget-browse-mode-map |
46 |
(setq widget-browse-mode-map (make-sparse-keymap)) |
(setq widget-browse-mode-map (make-sparse-keymap)) |
47 |
(set-keymap-parent widget-browse-mode-map widget-keymap) |
(set-keymap-parent widget-browse-mode-map widget-keymap) |
48 |
(define-key widget-browse-mode-map "q" 'bury-buffer)) |
(define-key widget-browse-mode-map "q" 'bury-buffer)) |
49 |
|
|
50 |
(easy-menu-define widget-browse-mode-customize-menu |
(easy-menu-define widget-browse-mode-customize-menu |
51 |
widget-browse-mode-map |
widget-browse-mode-map |
52 |
"Menu used in widget browser buffers." |
"Menu used in widget browser buffers." |
53 |
(customize-menu-create 'widgets)) |
(customize-menu-create 'widgets)) |
54 |
|
|
55 |
(easy-menu-define widget-browse-mode-menu |
(easy-menu-define widget-browse-mode-menu |
56 |
widget-browse-mode-map |
widget-browse-mode-map |
57 |
"Menu used in widget browser buffers." |
"Menu used in widget browser buffers." |
58 |
'("Widget" |
'("Widget" |
109 |
;;;###autoload |
;;;###autoload |
110 |
(defun widget-browse (widget) |
(defun widget-browse (widget) |
111 |
"Create a widget browser for WIDGET." |
"Create a widget browser for WIDGET." |
112 |
(interactive (list (completing-read "Widget: " |
(interactive (list (completing-read "Widget: " |
113 |
obarray |
obarray |
114 |
(lambda (symbol) |
(lambda (symbol) |
115 |
(get symbol 'widget-type)) |
(get symbol 'widget-type)) |
129 |
(kill-buffer (get-buffer-create "*Browse Widget*")) |
(kill-buffer (get-buffer-create "*Browse Widget*")) |
130 |
(switch-to-buffer (get-buffer-create "*Browse Widget*"))) |
(switch-to-buffer (get-buffer-create "*Browse Widget*"))) |
131 |
(widget-browse-mode) |
(widget-browse-mode) |
132 |
|
|
133 |
;; Quick way to get out. |
;; Quick way to get out. |
134 |
;; (widget-create 'push-button |
;; (widget-create 'push-button |
135 |
;; :action (lambda (widget &optional event) |
;; :action (lambda (widget &optional event) |
192 |
:action 'widget-browse-action) |
:action 'widget-browse-action) |
193 |
|
|
194 |
(defun widget-browse-action (widget &optional event) |
(defun widget-browse-action (widget &optional event) |
195 |
;; Create widget browser for WIDGET's :value. |
;; Create widget browser for WIDGET's :value. |
196 |
(widget-browse (widget-get widget :value))) |
(widget-browse (widget-get widget :value))) |
197 |
|
|
198 |
(defun widget-browse-value-create (widget) |
(defun widget-browse-value-create (widget) |
265 |
;;; Widget Minor Mode. |
;;; Widget Minor Mode. |
266 |
|
|
267 |
(defvar widget-minor-mode nil |
(defvar widget-minor-mode nil |
268 |
"I non-nil, we are in Widget Minor Mode.") |
"If non-nil, we are in Widget Minor Mode.") |
269 |
(make-variable-buffer-local 'widget-minor-mode) |
(make-variable-buffer-local 'widget-minor-mode) |
270 |
|
|
271 |
(defvar widget-minor-mode-map nil |
(defvar widget-minor-mode-map nil |
272 |
"Keymap used in Widget Minor Mode.") |
"Keymap used in Widget Minor Mode.") |
290 |
|
|
291 |
(add-to-list 'minor-mode-alist '(widget-minor-mode " Widget")) |
(add-to-list 'minor-mode-alist '(widget-minor-mode " Widget")) |
292 |
|
|
293 |
(add-to-list 'minor-mode-map-alist |
(add-to-list 'minor-mode-map-alist |
294 |
(cons 'widget-minor-mode widget-minor-mode-map)) |
(cons 'widget-minor-mode widget-minor-mode-map)) |
295 |
|
|
296 |
;;; The End: |
;;; The End: |