Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
1933 ;; components for colors, and they are not known on TTYs). 1933 ;; components for colors, and they are not known on TTYs).
1934 ((and widget-push-button-gui 1934 ((and widget-push-button-gui
1935 (console-on-window-system-p)) 1935 (console-on-window-system-p))
1936 (unless gui-glyphs 1936 (unless gui-glyphs
1937 (let* ((gui-button-shadow-thickness 1) 1937 (let* ((gui-button-shadow-thickness 1)
1938 (gui (make-gui-button tag 'widget-gui-action widget))) 1938 (gui (make-glyph
1939 (setq 1939 (make-gui-button tag 'widget-gui-action widget))))
1940 gui-glyphs 1940 (setq gui-glyphs gui)
1941 (list
1942 (make-glyph `(,(nth 0 (aref gui 1)) [string :data ,text]))
1943 (make-glyph `(,(nth 1 (aref gui 1)) [string :data ,text]))
1944 (make-glyph `(,(nth 2 (aref gui 1)) [string :data ,text]))))
1945 (laxputf widget-push-button-cache tag gui-glyphs))) 1941 (laxputf widget-push-button-cache tag gui-glyphs)))
1946 (widget-glyph-insert-glyph 1942 (widget-glyph-insert-glyph widget gui-glyphs))
1947 widget (nth 0 gui-glyphs) (nth 1 gui-glyphs) (nth 2 gui-glyphs)))
1948 (t 1943 (t
1949 (insert text))))) 1944 (insert text)))))
1950 1945
1951 (defun widget-gui-action (widget) 1946 (defun widget-gui-action (widget)
1952 "Apply :action for WIDGET." 1947 "Apply :action for WIDGET."