[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el |
Date: |
Thu, 27 Dec 2001 10:07:21 -0500 |
Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.103 emacs/lisp/wid-edit.el:1.104
*** emacs/lisp/wid-edit.el:1.103 Sat Dec 1 23:49:43 2001
--- emacs/lisp/wid-edit.el Thu Dec 27 10:07:21 2001
***************
*** 2001,2021 ****
(defun widget-toggle-value-create (widget)
"Insert text representing the `on' and `off' states."
(if (widget-value widget)
! (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))))
(defun widget-toggle-action (widget &optional event)
;; Toggle value.
--- 2001,2020 ----
(defun widget-toggle-value-create (widget)
"Insert text representing the `on' and `off' states."
(if (widget-value widget)
! (let ((image (widget-get widget :on-glyph)))
(and (display-graphic-p)
! (listp image)
! (not (eq (car image) 'image))
! (widget-put widget :on-glyph (setq image (eval image))))
(widget-image-insert widget
(widget-get widget :on)
! image))
! (let ((image (widget-get widget :off-glyph)))
! (and (display-graphic-p)
! (listp image)
! (not (eq (car image) 'image))
! (widget-put widget :off-glyph (setq image (eval image))))
! (widget-image-insert widget (widget-get widget :off) image))))
(defun widget-toggle-action (widget &optional event)
;; Toggle value.