Posted to tcl by Siqsuruq at Sat Sep 21 15:52:48 GMT 2013view pretty
# Updating ttk::label variable, countdown proc start_count {min} { set sec [expr $min * 60] set ::countdown $sec every 1000 {set ::countdown [expr $::countdown - 1]; if {$::countdown -1 < 0} return} } proc test_start {} { set rounds [list 1 2 3 4 5 6] foreach round $rounds { # Need to wait here till label got 0 start_count 1 # Next round puts $round } }