Source

xemacs-21.4 / tests / gutter-test.el

Diff from to

File tests/gutter-test.el

 
 (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)
+