(setq progress-glyph-height 16)
(setq progress-layout-instantiator
`[layout
- :orientation horizontal
- :margin-width 4
+ :orientation vertical :margin-width 4
+ :horizontally-justify left :vertically-justify center
:items (,progress-gauge-instantiator
[button
:pixel-height (eval progress-glyph-height)
(setq progress-glyph-height 24)
(setq progress-layout-instantiator
`[layout
- :orientation vertical :justify left
- :margin-width 4
+ :orientation vertical :margin-width 4
+ :horizontally-justify left :vertically-justify center
:items (,progress-text-instantiator
[layout
:orientation horizontal
(defun set-progress-abort-instantiator (&optional locale)
(set-glyph-image progress-abort-glyph
- `[layout :orientation vertical :justify left
+ `[layout :orientation vertical
+ :horizontally-justify left :vertically-justify center
:items (,progress-text-instantiator
[layout
:margin-width 4