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))
23 (setq pbutton (make-glyph
24 [button :width 10 :height 2
25 :face modeline-mousable
26 :descriptor "ok" :callback foo
30 (set-extent-begin-glyph
31 (make-extent (point) (point))
32 (setq tree (make-glyph
35 :properties (:items (["One" foo]
42 (set-extent-begin-glyph
43 (make-extent (point) (point))
45 [tab :descriptor "My Tab"
47 :properties (:items (["One" foo]
52 (set-extent-begin-glyph
53 (make-extent (point) (point))
54 (setq pgauge (make-glyph
55 [progress :width 10 :height 2
57 ;; progress the progress ...
60 (set-image-instance-property (glyph-image-instance pgauge) :percent x)
64 ;; progress gauge in the modeline
65 (setq global-mode-string
66 (cons (make-extent nil nil)
68 [progress :width 5 :pixel-height 16
70 ;; progress the progress ...
73 (set-image-instance-property (glyph-image-instance pg) :percent x)
77 (set-extent-begin-glyph
78 (make-extent (point) (point))
80 [button :face modeline-mousable
81 :descriptor "ok" :callback foo
83 [xpm :file "../etc/xemacs-icon.xpm"])]))
86 (set-extent-begin-glyph
87 (make-extent (point) (point))
88 (make-glyph [button :descriptor ["A Big Button" foo ]]))
91 (set-extent-begin-glyph
92 (make-extent (point) (point))
93 (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30
95 :descriptor ["Hello"]])))
97 (set-extent-begin-glyph
98 (make-extent (point) (point))
99 (setq hcombo (make-glyph
100 [combo :width 10 :height 3 :descriptor ["Hello"]
101 :properties (:items ("One" "Two" "Three"))])))
104 (set-extent-begin-glyph
105 (make-extent (point) (point))
106 (make-glyph [label :pixel-width 150 :descriptor "Hello"]))
109 ;(set-extent-begin-glyph
110 ; (make-extent (point) (point))
111 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
114 (setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 50]))
115 (set-extent-begin-glyph (make-extent (point) (point)) sw)