Mercurial > hg > xemacs-beta

comparison lisp/gutter-items.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 943eaba38521
children 4a27df428c73
comparison
equal deleted inserted replaced
862:278c743f1578 863:42375619fa45
191 locale)) 191 locale))
192 (t 192 (t
193 (setq progress-glyph-height 24) 193 (setq progress-glyph-height 24)
194 (setq progress-layout-instantiator 194 (setq progress-layout-instantiator
195 `[layout 195 `[layout
196 :orientation vertical :justify left 196 :orientation vertical :margin-width 4
197 :margin-width 4 197 :horizontally-justify left :vertically-justify center
198 :items (,progress-text-instantiator 198 :items (,progress-text-instantiator
199 [layout 199 [layout
200 :orientation horizontal 200 :orientation horizontal
201 :items (,progress-gauge-instantiator 201 :items (,progress-gauge-instantiator
202 [button 202 [button
209 209
210 (defvar progress-abort-glyph (make-glyph)) 210 (defvar progress-abort-glyph (make-glyph))
211 211
212 (defun set-progress-abort-instantiator (&optional locale) 212 (defun set-progress-abort-instantiator (&optional locale)
213 (set-glyph-image progress-abort-glyph 213 (set-glyph-image progress-abort-glyph
214 `[layout :orientation vertical :justify left 214 `[layout :orientation vertical
215 :horizontally-justify left :vertically-justify center
215 :items (,progress-text-instantiator 216 :items (,progress-text-instantiator
216 [layout 217 [layout
217 :margin-width 4 218 :margin-width 4
218 :pixel-height progress-glyph-height 219 :pixel-height progress-glyph-height
219 :orientation horizontal])] 220 :orientation horizontal])]