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)
20 (set-gutter-element bottom-gutter 'str str)
21 (set-gutter-element bottom-gutter 'str2 str2)
22 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
23 (set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t)