Re: Progress gauge height
Andy Piper <andyp(a)bea.com> writes:
At 06:26 PM 3/31/00 +0200, Hrvoje Niksic wrote:
>I've now noticed that the one thing that makes our new progress
>gauges, uh, less pretty than they should be, is the fact that they
>take up so much screen height. The raising of the modeline that gauge
>causes is too large a flicker to be visually acceptable.
>
>Proposal: could it be possible to place the message to the right of
>the gauge, instead of above it? I think it would make the gauge
>experience much nicer.
I suggest that this be configurable. Try playing with the
progress-gauge-glyph and progress-layout-glyph and come up with
something acceptable to you.
You're right. How about the one below?
Also, I think it would help *a lot* if we just used the echo area for
progress display.
--- gutter-items.el.orig Tue Apr 4 19:26:20 2000
+++ gutter-items.el Tue Apr 4 19:44:40 2000
＠＠ -513,7 +513,7 ＠＠
Do not modify this directly--use the `progress-display' or
`display-progress-display'/`clear-progress-display' functions.")
-(defvar progress-glyph-height 32
+(defvar progress-glyph-height 24
"Height of the gutter area for progress messages.")
(defvar progress-display-popup-period 0.5
＠＠ -532,21 +532,14 ＠＠
(defvar progress-layout-glyph
(make-glyph
- (vector
- 'layout :orientation 'vertical :justify 'left
- :items (list
- progress-text-glyph
- (make-glyph
- (vector
- 'layout :pixel-height progress-glyph-height
- :orientation 'horizontal
- :items (list
- progress-gauge-glyph
- (vector
- 'button :pixel-height (- progress-glyph-height 8)
- :descriptor " Stop "
- ;; quit is a special callback
- :callback 'quit))))))))
+ `[layout
+ :orientation horizontal
+ :items (,progress-gauge-glyph
+ [button
+ :pixel-height ,(- progress-glyph-height 8)
+ :descriptor "Stop"
+ :callback 'quit]
+ ,progress-text-glyph)]))
(defvar progress-abort-glyph
(make-glyph