ProgressBox sample





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