Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
16 (setq ok-select nil) 16 (setq ok-select nil)
17 (set-extent-begin-glyph 17 (set-extent-begin-glyph
18 (make-extent (point) (point)) 18 (make-extent (point) (point))
19 (setq radio-button1 19 (setq radio-button1
20 (make-glyph 20 (make-glyph
21 [button :descriptor ["ok " (setq ok-select t) 21 [button :descriptor ["ok1" (setq ok-select t)
22 :style radio :selected ok-select]]))) 22 :style radio :selected ok-select]])))
23 ;; button in a group 23 ;; button in a group
24 (set-extent-begin-glyph 24 (set-extent-begin-glyph
25 (make-extent (point) (point)) 25 (make-extent (point) (point))
26 (setq radio-button2 26 (setq radio-button2
27 (make-glyph 27 (make-glyph
28 [button :descriptor ["ok" (setq ok-select nil) :style radio 28 ` [button :descriptor ["ok2" (setq ok-select nil) :style radio
29 :selected (not ok-select)]]))) 29 :selected (not ok-select)]])))
30 ;; toggle button 30 ;; toggle button
31 (set-extent-begin-glyph 31 (set-extent-begin-glyph
32 (make-extent (point) (point)) 32 (make-extent (point) (point))
33 (setq tbutton 33 (setq tbutton
34 (make-glyph [button :descriptor ["ok" (setq ok-select nil) 34 (make-glyph [button :descriptor ["ok3" (setq ok-select nil)
35 :style toggle 35 :style toggle
36 :selected (not ok-select)]]))) 36 :selected (not ok-select)]])))
37 (set-extent-begin-glyph 37 (set-extent-begin-glyph
38 (make-extent (point) (point)) 38 (make-extent (point) (point))
39 (setq toggle-button 39 (setq toggle-button
40 (make-glyph [button :descriptor ["ok" :style toggle 40 (make-glyph [button :descriptor ["ok4" :style toggle
41 :callback 41 :callback
42 (setq ok-select (not ok-select)) 42 (setq ok-select (not ok-select))
43 :selected ok-select]]))) 43 :selected ok-select]])))
44 44
45 ;; normal pushbutton 45 ;; normal pushbutton
67 (make-extent (point) (point)) 67 (make-extent (point) (point))
68 (setq tab (make-glyph 68 (setq tab (make-glyph
69 [tab-control :descriptor "My Tab" 69 [tab-control :descriptor "My Tab"
70 :face highlight 70 :face highlight
71 :orientation right 71 :orientation right
72 :properties (:items (["One" foo] 72 :properties (:items (["One" foo :selected t]
73 ["Two" fee] 73 ["Two" fee :selected nil]
74 ["Three" foo]))]))) 74 ["Three" foo :selected nil]))])))
75 75
76 ;; progress gauge 76 ;; progress gauge
77 (set-extent-begin-glyph 77 (set-extent-begin-glyph
78 (make-extent (point) (point)) 78 (make-extent (point) (point))
79 (setq pgauge (make-glyph 79 (setq pgauge (make-glyph