1 (setq str "Hello There")
2 (set-extent-begin-glyph
4 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
9 ; (setq ok-select (not ok-select)))
13 (set-extent-begin-glyph
14 (make-extent (point) (point))
15 (make-glyph [button :descriptor ["ok " (setq ok-select t)
16 :style radio :selected ok-select]]))
18 (set-extent-begin-glyph
19 (make-extent (point) (point))
20 (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio
21 :selected (not ok-select)]]))
23 (set-extent-begin-glyph
24 (make-extent (point) (point))
26 (make-glyph [button :descriptor ["ok" (setq ok-select nil)
28 :selected (not ok-select)]])))
29 (set-extent-begin-glyph
30 (make-extent (point) (point))
31 (make-glyph [button :descriptor ["ok" :style toggle
33 (setq ok-select (not ok-select))
34 :selected ok-select]]))
37 (set-extent-begin-glyph
38 (make-extent (point) (point))
39 (setq pbutton (make-glyph
40 [button :width 10 :height 2
41 :face modeline-mousable
42 :descriptor "ok" :callback foo
45 (set-extent-begin-glyph
46 (make-extent (point) (point))
47 (setq tree (make-glyph
50 :properties (:items (["One" foo]
57 (set-extent-begin-glyph
58 (make-extent (point) (point))
60 [tab-control :descriptor "My Tab"
62 :properties (:items (["One" foo]
67 (set-extent-begin-glyph
68 (make-extent (point) (point))
69 (setq pgauge (make-glyph
70 [progress-gauge :width 10 :height 2
72 ;; progress the progress ...
75 (set-image-instance-property (glyph-image-instance pgauge) :percent x)
79 ;; progress gauge in the modeline
80 (setq global-mode-string
81 (cons (make-extent nil nil)
83 [progress-gauge :width 5 :pixel-height 16
85 ;; progress the progress ...
88 (set-image-instance-property (glyph-image-instance pg) :percent x)
92 (set-extent-begin-glyph
93 (make-extent (point) (point))
95 [button :face modeline-mousable
96 :descriptor "ok" :callback foo
98 [xpm :file "../etc/xemacs-icon.xpm"])]))
101 (set-extent-begin-glyph
102 (make-extent (point) (point))
103 (make-glyph [button :descriptor ["A Big Button" foo ]]))
106 (set-extent-begin-glyph
107 (make-extent (point) (point))
108 (setq hedit (make-glyph [edit-field :pixel-width 50 :pixel-height 30
110 :descriptor ["Hello"]])))
112 (set-extent-begin-glyph
113 (make-extent (point) (point))
114 (setq hcombo (make-glyph
115 [combo-box :width 10 :height 3 :descriptor ["Hello"]
116 :properties (:items ("One" "Two" "Three"))])))
119 (set-extent-begin-glyph
120 (make-extent (point) (point))
121 (make-glyph [label :pixel-width 150 :descriptor "Hello"]))
124 ;(set-extent-begin-glyph
125 ; (make-extent (point) (point))
126 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
129 (setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 70]))
130 (set-extent-begin-glyph (make-extent (point) (point)) sw)