1 (setq str "Hello There\nHello Again")
2 (set-extent-begin-glyph
4 (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
6 (set-extent-begin-glyph
9 [button :width 5 :height 1
10 :face modeline-mousable
11 :descriptor "ok" :selected t]))
13 (set-specifier default-gutter-height 'autodetect)
14 (set-specifier default-gutter-width 40)
15 (set-specifier default-gutter-border-width 2)
16 (set-specifier default-gutter str)
17 (set-default-gutter-position 'bottom)