Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
515c9d0d
Commit
515c9d0d
authored
Jun 21, 1997
by
Richard M. Stallman
Browse files
(group-visibility): New widget type.
(widget-group-visibility-create): New function.
parent
043ee6f6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
0 deletions
+18
-0
lisp/wid-edit.el
lisp/wid-edit.el
+18
-0
No files found.
lisp/wid-edit.el
View file @
515c9d0d
...
...
@@ -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'.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment