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
  21 (set-gutter-element
  22  bottom-gutter 'str
  23  (make-glyph
  24   [layout :orientation vertical
  25           :justify left :margin-width 4
  26           :items ([string :data "Fontifying glyphs.c..."]
  27                   [layout :orientation horizontal
  28                           :items
  29                           ([progress-gauge :value 0 :pixel-height 24
  30                                            :pixel-width 250 :descriptor
  31                                            "Progress"]
  32                            [button :pixel-height 24
  33                                    :descriptor " Stop "
  34                                    :callback (quote quit)])])]))
  35
  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)
  39