git.chise.org Git - chise/xemacs-chise.git.1/blob - tests/gutter-test.el

   1 (setq str "Hello There\nHello Again")
   2 (set-extent-begin-glyph
   3  (make-extent 0 0 str)
   4  (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
   5
   6 (set-extent-begin-glyph
   7  (make-extent 3 3 str)
   8  (make-glyph
   9   [button :width 5 :height 1
  10           :face modeline-mousable
  11           :descriptor "ok" :selected t]))
  12
  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)