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. |