source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set box [ProgressBox new] $box label: "1 minute to go" $box show $box timer: 60 ;# set timer to 1 minute $box onChange: { puts stderr "value changed to $value" } $box onEnd: { puts stderr "maximum reached !" } $box start