[Tile-dev] progress bar: fixed height?

[Bryan O. <oa...@ba...>]

I tried the progressbar in tile 0.7.2 for the first time today. Looks 
prett spiffy on MacOSX!

However, the height (when oriented horizontally) seems fixed. When I use 
place it in line with a status bar, it doesn't fill the cell in the Y 
direction.

Is this going to be a fact of life, or is it a bug?

Here's a script that shows what I mean. On my box, the progressbar is 
only about half as tall as the statusbar.

Here's code to illustrate the problem:

package require tile 0.7.2

ttk::frame .main
ttk::frame .statusbar -borderwidth 2 -relief sunken
pack .statusbar -side bottom -fill x
pack .main -side top -fill both -expand y

ttk::button .main.start -text "Start" -command {busy 1}
ttk::button .main.stop -text "Stop" -command {busy 0}
pack .main.start .main.stop

ttk::progressbar .pb -length 64 -mode indeterminate
ttk::label .status -width 40
pack .pb -in .statusbar -side left -fill y
pack .status -in .statusbar -side left -fill both

proc busy {on} {
   if {$on} {
     .status configure -text "Working..."
     .pb start
   } else {
     .status configure -text ""
     .pb stop
   }
}