update.

[chise/xemacs-chise.git.1] / tests / gutter-test.el

diff --git a/tests/gutter-test.el b/tests/gutter-test.el
index 27b6d07..c73b09f 100644 (file)
--- a/tests/gutter-test.el
+++ b/tests/gutter-test.el
@@ -17,7 +17,23 @@
 
 (set-specifier bottom-gutter-height 'autodetect)
 (set-specifier bottom-gutter-border-width 2)
-(set-gutter-element bottom-gutter 'str str)
+
+(set-gutter-element 
+ bottom-gutter 'str
+ (make-glyph 
+  [layout :orientation vertical 
+         :justify left :margin-width 4 
+         :items ([string :data "Fontifying glyphs.c..."]
+                 [layout :orientation horizontal 
+                         :items 
+                         ([progress-gauge :value 0 :pixel-height 24
+                                          :pixel-width 250 :descriptor 
+                                          "Progress"]
+                          [button :pixel-height 24
+                                  :descriptor " Stop " 
+                                  :callback (quote quit)])])]))
+
 (set-gutter-element bottom-gutter 'str2 str2)
 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
 (set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t)
+