Posted to tcl by Siqsuruq at Sat Sep 21 15:52:48 GMT 2013view raw
- # 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
- }
- }