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
	}
}