Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
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 ["ok1" (setq ok-select t) 21 [button :face widget
22 :descriptor ["ok1" (setq ok-select t)
22 :style radio :selected ok-select]]))) 23 :style radio :selected ok-select]])))
23 ;; button in a group 24 ;; button in a group
24 (set-extent-begin-glyph 25 (set-extent-begin-glyph
25 (make-extent (point) (point)) 26 (make-extent (point) (point))
26 (setq radio-button2 27 (setq radio-button2
46 (set-extent-begin-glyph 47 (set-extent-begin-glyph
47 (make-extent (point) (point)) 48 (make-extent (point) (point))
48 (setq push-button 49 (setq push-button
49 (make-glyph [button :width 10 :height 2 50 (make-glyph [button :width 10 :height 2
50 :face modeline-mousable 51 :face modeline-mousable
51 :descriptor "ok" :callback foo 52 :descriptor "ok" :callback foo
52 :selected t]))) 53 :selected t])))
53 ;; tree view 54 ;; tree view
54 (set-extent-begin-glyph 55 (set-extent-begin-glyph
55 (make-extent (point) (point)) 56 (make-extent (point) (point))
56 (setq tree (make-glyph 57 (setq tree (make-glyph
80 [progress-gauge :width 10 :height 2 81 [progress-gauge :width 10 :height 2
81 :descriptor "ok"]))) 82 :descriptor "ok"])))
82 ;; progress the progress ... 83 ;; progress the progress ...
83 (let ((x 0)) 84 (let ((x 0))
84 (while (<= x 100) 85 (while (<= x 100)
85 (set-image-instance-property (glyph-image-instance pgauge) :percent x) 86 (set-image-instance-property (glyph-image-instance pgauge) :value x)
86 (setq x (+ x 5)) 87 (setq x (+ x 5))
87 (sit-for 0.1))) 88 (sit-for 0.1)))
88 89
89 ;; progress gauge in the modeline 90 ;; progress gauge in the modeline
90 (setq global-mode-string 91 (setq global-mode-string
93 [progress-gauge :width 5 :pixel-height 16 94 [progress-gauge :width 5 :pixel-height 16
94 :descriptor "ok"])))) 95 :descriptor "ok"]))))
95 ;; progress the progress ... 96 ;; progress the progress ...
96 (let ((x 0)) 97 (let ((x 0))
97 (while (<= x 100) 98 (while (<= x 100)
98 (set-image-instance-property (glyph-image-instance pg) :percent x) 99 (set-image-instance-property (glyph-image-instance pg) :value x)
99 (setq x (+ x 5)) 100 (setq x (+ x 5))
100 (sit-for 0.1))) 101 (sit-for 0.1)))
101 102
102 (set-extent-begin-glyph 103 (set-extent-begin-glyph
103 (make-extent (point) (point)) 104 (make-extent (point) (point))