mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(widget-toggle-value-create): On graphic terminal,

Browse Source 
if :on-glyph or :off-glyph is a list, eval it and store it back.
(checkbox): Quote the values for :on-glyph and :off-glyph.
This commit is contained in:
Richard M. Stallman 2001-11-27 05:04:13 +00:00
parent 5f537e54d6
commit 805e9a057e
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/wid-edit.el
View File

@ -1996,9 +1996,18 @@ when he invoked the menu."
(defun widget-toggle-value-create (widget)
"Insert text representing the `on' and `off' states."
(if (widget-value widget)
(widget-image-insert widget
(widget-get widget :on)
(widget-get widget :on-glyph))
(progn
(and (display-graphic-p)
(listp (widget-get widget :on-glyph))
(widget-put widget :on-glyph
(eval (widget-get widget :on-glyph))))
(widget-image-insert widget
(widget-get widget :on)
(widget-get widget :on-glyph)))
(and (display-graphic-p)
(listp (widget-get widget :off-glyph))
(widget-put widget :off-glyph
(eval (widget-get widget :off-glyph))))
(widget-image-insert widget
(widget-get widget :off)
(widget-get widget :off-glyph))))
@ -2020,19 +2029,19 @@ when he invoked the menu."
;; We could probably do the same job as the images using single
;; space characters in a boxed face with a stretch specification to
;; make them square.
:on-glyph (create-image "\000\066\076\034\076\066\000"
'xbm t :width 7 :height 7
:background "grey75" ; like default mode line
:foreground "black"
:relief -3
:ascent 'center)
:off "[ ]"
:off-glyph (create-image (make-string 7 0)
:on-glyph '(create-image "\000\066\076\034\076\066\000"
'xbm t :width 7 :height 7
:background "grey75"
:background "grey75" ; like default mode line
:foreground "black"
:relief 3
:relief -3
:ascent 'center)
:off "[ ]"
:off-glyph '(create-image (make-string 7 0)
'xbm t :width 7 :height 7
:background "grey75"
:foreground "black"
:relief 3
:ascent 'center)
:help-echo "Toggle this item."
:action 'widget-checkbox-action)