run the event loop for a specified time

Posted to tcl by kbk at Tue Feb 23 21:48:06 GMT 2021view raw

namespace eval ::ns {}
puts "scheduling wakeup"
after 10000 {
puts "after fires"
set ::ns::foo hello
}
puts "waiting for ::ns::foo"
vwait ::ns::foo
puts "done waiting"
puts $::ns::foo