Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 418:e804706bfb8c r21-2-17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-17
author cvs
date Mon, 13 Aug 2007 11:23:13 +0200
parents 697ef44129c6
children 41dbb7a9d5f2
comparison
equal deleted inserted replaced
417:43a18b32d56e 418:e804706bfb8c
23 (setq pbutton (make-glyph 23 (setq pbutton (make-glyph
24 [button :width 10 :height 2 24 [button :width 10 :height 2
25 :face modeline-mousable 25 :face modeline-mousable
26 :descriptor "ok" :callback foo 26 :descriptor "ok" :callback foo
27 :selected t]))) 27 :selected t])))
28
29 ;; tree view
30 (set-extent-begin-glyph
31 (make-extent (point) (point))
32 (setq tree (make-glyph
33 [tree :width 10
34 :descriptor "My Tree"
35 :properties (:items (["One" foo]
36 (["Two" foo]
37 ["Four" foo]
38 "Six")
39 "Three"))])))
40
41 ;; tab control
42 (set-extent-begin-glyph
43 (make-extent (point) (point))
44 (setq tab (make-glyph
45 [tab :descriptor "My Tab"
46 :face default
47 :properties (:items (["One" foo]
48 ["Two" foo]
49 ["Three" foo]))])))
50
28 ;; progress gauge 51 ;; progress gauge
29 (set-extent-begin-glyph 52 (set-extent-begin-glyph
30 (make-extent (point) (point)) 53 (make-extent (point) (point))
31 (setq pgauge (make-glyph 54 (setq pgauge (make-glyph
32 [progress :width 10 :height 2 55 [progress :width 10 :height 2
61 84
62 ;; normal pushbutton 85 ;; normal pushbutton
63 (set-extent-begin-glyph 86 (set-extent-begin-glyph
64 (make-extent (point) (point)) 87 (make-extent (point) (point))
65 (make-glyph [button :descriptor ["A Big Button" foo ]])) 88 (make-glyph [button :descriptor ["A Big Button" foo ]]))
89
66 ;; edit box 90 ;; edit box
67 (set-extent-begin-glyph 91 (set-extent-begin-glyph
68 (make-extent (point) (point)) 92 (make-extent (point) (point))
69 (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30 93 (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30
70 :face bold-italic 94 :face bold-italic