Lines Matching defs:browse
1 ;;; wid-browse.el --- functions for browsing widgets
37 (defgroup widget-browse nil
43 (defvar widget-browse-mode-map nil
44 "Keymap for `widget-browse-mode'.")
46 (unless widget-browse-mode-map
47 (setq widget-browse-mode-map (make-sparse-keymap))
48 (set-keymap-parent widget-browse-mode-map widget-keymap)
49 (define-key widget-browse-mode-map "q" 'bury-buffer))
51 (easy-menu-define widget-browse-mode-customize-menu
52 widget-browse-mode-map
56 (easy-menu-define widget-browse-mode-menu
57 widget-browse-mode-map
60 ["Browse" widget-browse t]
61 ["Browse At" widget-browse-at t]))
63 (defcustom widget-browse-mode-hook nil
64 "Hook called when entering widget-browse-mode."
66 :group 'widget-browse)
68 (defun widget-browse-mode ()
78 Entry to this mode calls the value of `widget-browse-mode-hook'
81 (setq major-mode 'widget-browse-mode
83 (use-local-map widget-browse-mode-map)
84 (easy-menu-add widget-browse-mode-customize-menu)
85 (easy-menu-add widget-browse-mode-menu)
86 (run-mode-hooks 'widget-browse-mode-hook))
88 (put 'widget-browse-mode 'mode-class 'special)
93 (defun widget-browse-at (pos)
105 (widget-browse widget))
108 (defvar widget-browse-history nil)
111 (defun widget-browse (widget)
117 t nil 'widget-browse-history)))
132 (widget-browse-mode)
145 (widget-create 'widget-browse
158 (widget-create 'widget-browse
166 'widget-browse-sexp)
175 (defun widget-browse-other-window (&optional widget)
181 (widget-browse widget)
182 (call-interactively 'widget-browse))
186 ;;; The `widget-browse' Widget.
188 (define-widget 'widget-browse 'push-button
192 :value-create 'widget-browse-value-create
193 :action 'widget-browse-action)
195 (defun widget-browse-action (widget &optional event)
197 (widget-browse (widget-get widget :value)))
199 (defun widget-browse-value-create (widget)
211 (defun widget-browse-widget (widget key value)
214 (widget-create 'widget-browse value))
216 (defun widget-browse-widgets (widget key value)
220 (widget-create 'widget-browse
226 (defun widget-browse-sexp (widget key value)
248 (defun widget-browse-sexps (widget key value)
253 (widget-browse-sexp widget key (car value))
260 (put :parent 'widget-keyword-printer 'widget-browse-widget)
261 (put :children 'widget-keyword-printer 'widget-browse-widgets)
262 (put :buttons 'widget-keyword-printer 'widget-browse-widgets)
263 (put :button 'widget-keyword-printer 'widget-browse-widget)
264 (put :args 'widget-keyword-printer 'widget-browse-sexps)
299 (provide 'wid-browse)
302 ;;; wid-browse.el ends here