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

   1 (setq str "Hello\nAgain")
   2 (setq str-ext (make-extent 0 5 str))
   3 (set-extent-begin-glyph
   4  str-ext
   5  (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
   6 (set-extent-property str-ext 'mouse-face 'highlight)
   7
   8 (setq str2 "Hello\n")
   9 (setq str2-ext (make-extent 0 1 str2))
  10 (set-extent-begin-glyph
  11  str2-ext
  12  (make-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]))
  17
  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)