Mercurial > hg > xemacs-beta

comparison tests/gutter-test.el @ 863:42375619fa45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-04 06:03:59 by andyp] merge 21.4 windows changes, minimally tested
author andyp
date Tue, 04 Jun 2002 06:05:53 +0000
parents abe6d1db359e
children 8a653fbe5c27
comparison
equal deleted inserted replaced
862:278c743f1578 863:42375619fa45
19 (set-specifier bottom-gutter-border-width 2) 19 (set-specifier bottom-gutter-border-width 2)
20 20
21 (set-gutter-element 21 (set-gutter-element
22 bottom-gutter 'str 22 bottom-gutter 'str
23 (make-glyph 23 (make-glyph
24 [layout :orientation vertical 24 [layout :orientation vertical :margin-width 4
25 :justify left :margin-width 4 25 :vertically-justify center :horizontally-justify left
26 :items ([string :data "Fontifying glyphs.c..."] 26 :items ([string :data "Fontifying glyphs.c..."]
27 [layout :orientation horizontal 27 [layout :orientation horizontal
28 :items 28 :items
29 ([progress-gauge :value 0 :pixel-height 24 29 ([progress-gauge :value 0 :pixel-height 24
30 :pixel-width 250 :descriptor 30 :pixel-width 250 :descriptor
31 "Progress"] 31 "Progress"]
32 [button :pixel-height 24 32 [button :pixel-height 24
33 :descriptor " Stop " 33 :descriptor " Stop "
34 :callback (quote quit)])])])) 34 :callback (quote quit)])])]))
35 35
36 (set-gutter-element bottom-gutter 'str2 str2)
37 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t) 36 (set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
38 (set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t) 37 (set-gutter-element left-gutter 'str2 str2)
38 (set-gutter-element-visible-p left-gutter-visible-p 'str2 t)
39 39