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