1 (setq str "Hello\nAgain")
2 (setq str-ext (make-extent 0 5 str))
3 (set-extent-begin-glyph
5 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
6 (set-extent-property str-ext 'mouse-face 'highlight)
9 (setq str2-ext (make-extent 0 1 str2))
10 (set-extent-begin-glyph
13 [button :width 5 :height 1
14 :face modeline-mousable
15 :callback (set-specifier bottom-gutter-visible-p '(str2))
16 :descriptor "ok" :selected t]))
18 (set-specifier bottom-gutter-height 'autodetect)
19 (set-specifier bottom-gutter-border-width 2)
24 [layout :orientation vertical
25 :justify left :margin-width 4
26 :items ([string :data "Fontifying glyphs.c..."]
27 [layout :orientation horizontal
29 ([progress-gauge :value 0 :pixel-height 24
30 :pixel-width 250 :descriptor
32 [button :pixel-height 24
34 :callback (quote quit)])])]))
36 (set-gutter-element bottom-gutter 'str2 str2)
37 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
38 (set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t)