/[emacs]/emacs/lisp/wid-browse.el
ViewVC logotype

Diff of /emacs/lisp/wid-browse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by abraham, Thu Feb 14 16:47:11 2002 UTC revision 1.9.4.1 by miles, Fri Apr 4 06:20:12 2003 UTC
# Line 41  Line 41 
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"
# Line 109  if that value is non-nil." Line 109  if that value is non-nil."
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))
# Line 129  if that value is non-nil." Line 129  if that value is non-nil."
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)
# Line 192  The :value of the widget shuld be the wi Line 192  The :value of the widget shuld be the wi
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)
# Line 265  VALUE is assumed to be a list of widgets Line 265  VALUE is assumed to be a list of widgets
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.")
# Line 290  With arg, turn widget mode on if and onl Line 290  With arg, turn widget mode on if and onl
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:

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26