Apply new glyph-image conventions for `ucs@*', `adobe-japan1-*',
[chise/xemacs-chise.git.1] / 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