X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Fgutter-test.el;h=c73b09f606d1e950edddb5cb27f2984df6e23c85;hb=d36ef7045c791342be52cc71ee0de59bea1d425b;hp=27b6d076609c273191686b6333c2a240b1da2a9e;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/tests/gutter-test.el b/tests/gutter-test.el
index 27b6d07..c73b09f 100644
--- 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)
+