Commit 515c9d0d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(group-visibility): New widget type.

(widget-group-visibility-create): New function.
parent 043ee6f6
......@@ -2621,6 +2621,24 @@ when he invoked the menu."
(widget-glyph-insert widget on "down" "down-pushed")
(widget-glyph-insert widget off "right" "right-pushed"))))
(define-widget 'group-visibility 'item
"An indicator and manipulator for hidden group contents."
:format "%[%v%]"
:create 'widget-group-visibility-create
:button-prefix ""
:button-suffix ""
:on "Hide"
:off "Show"
:value-create 'widget-visibility-value-create
:action 'widget-toggle-action
:match (lambda (widget value) t))
(defun widget-group-visibility-create (widget)
(let ((visible (widget-value widget)))
(if visible
(insert "--------")))
(widget-default-create widget))
;;; The `documentation-link' Widget.
;;
;; This is a helper widget for `documentation-string'.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment