1 (set-extent-begin-glyph
2 (make-extent (point) (point))
3 (setq icon (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])))
7 (setq ok-select (not ok-select)))
11 (set-extent-begin-glyph
12 (make-extent (point) (point))
13 (make-glyph [button :descriptor ["ok " (setq ok-select t)
14 :style radio :selected ok-select]]))
16 (set-extent-begin-glyph
17 (make-extent (point) (point))
18 (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio
19 :selected (not ok-select)]]))
21 (set-extent-begin-glyph
22 (make-extent (point) (point))
24 (make-glyph [button :descriptor ["ok" (setq ok-select nil)
26 :selected (not ok-select)]])))
27 (set-extent-begin-glyph
28 (make-extent (point) (point))
29 (make-glyph [button :descriptor ["ok" :style toggle
31 (setq ok-select (not ok-select))
32 :selected ok-select]]))
35 (set-extent-begin-glyph
36 (make-extent (point) (point))
37 (setq pbutton (make-glyph
38 [button :width 10 :height 2
39 :face modeline-mousable
40 :descriptor "ok" :callback foo
43 (set-extent-begin-glyph
44 (make-extent (point) (point))
45 (setq tree (make-glyph
48 :properties (:items (["One" foo]
55 (set-extent-begin-glyph
56 (make-extent (point) (point))
58 [tab-control :descriptor "My Tab"
60 :properties (:items (["One" foo]
65 (set-extent-begin-glyph
66 (make-extent (point) (point))
67 (setq pgauge (make-glyph
68 [progress-gauge :width 10 :height 2
70 ;; progress the progress ...
73 (set-image-instance-property (glyph-image-instance pgauge) :percent x)
77 ;; progress gauge in the modeline
78 (setq global-mode-string
79 (cons (make-extent nil nil)
81 [progress-gauge :width 5 :pixel-height 16
83 ;; progress the progress ...
86 (set-image-instance-property (glyph-image-instance pg) :percent x)
90 (set-extent-begin-glyph
91 (make-extent (point) (point))
93 [button :face modeline-mousable
94 :descriptor "ok" :callback foo
96 [xpm :file "../etc/xemacs-icon.xpm"])]))
99 (set-extent-begin-glyph
100 (make-extent (point) (point))
101 (make-glyph [button :descriptor ["A Big Button" foo ]]))
104 (set-extent-begin-glyph
105 (make-extent (point) (point))
106 (setq hedit (make-glyph [edit-field :pixel-width 50 :pixel-height 30
108 :descriptor ["Hello"]])))
110 (set-extent-begin-glyph
111 (make-extent (point) (point))
112 (setq hcombo (make-glyph
113 [combo-box :width 10 :height 3 :descriptor ["Hello"]
114 :properties (:items ("One" "Two" "Three"))])))
117 (set-extent-begin-glyph
118 (make-extent (point) (point))
119 (make-glyph [label :pixel-width 150 :descriptor "Hello"]))
122 ;(set-extent-begin-glyph
123 ; (make-extent (point) (point))
124 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
127 (setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 70]))
128 (set-extent-begin-glyph (make-extent (point) (point)) sw)