/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.103 by rms, Sun Dec 2 04:49:43 2001 UTC revision 1.104 by miles, Thu Dec 27 15:07:21 2001 UTC
# Line 2001  when he invoked the menu." Line 2001  when he invoked the menu."
2001  (defun widget-toggle-value-create (widget)  (defun widget-toggle-value-create (widget)
2002    "Insert text representing the `on' and `off' states."    "Insert text representing the `on' and `off' states."
2003    (if (widget-value widget)    (if (widget-value widget)
2004        (progn        (let ((image (widget-get widget :on-glyph)))
2005          (and (display-graphic-p)          (and (display-graphic-p)
2006               (listp (widget-get widget :on-glyph))               (listp image)
2007               (widget-put widget :on-glyph               (not (eq (car image) 'image))
2008                           (eval (widget-get widget :on-glyph))))               (widget-put widget :on-glyph (setq image (eval image))))
2009          (widget-image-insert widget          (widget-image-insert widget
2010                               (widget-get widget :on)                               (widget-get widget :on)
2011                               (widget-get widget :on-glyph)))                               image))
2012      (and (display-graphic-p)      (let ((image (widget-get widget :off-glyph)))
2013           (listp (widget-get widget :off-glyph))        (and (display-graphic-p)
2014           (widget-put widget :off-glyph             (listp image)
2015                       (eval (widget-get widget :off-glyph))))             (not (eq (car image) 'image))
2016      (widget-image-insert widget             (widget-put widget :off-glyph (setq image (eval image))))
2017                           (widget-get widget :off)        (widget-image-insert widget (widget-get widget :off) image))))
                          (widget-get widget :off-glyph))))  
2018    
2019  (defun widget-toggle-action (widget &optional event)  (defun widget-toggle-action (widget &optional event)
2020    ;; Toggle value.    ;; Toggle value.

Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26