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

  1. namespace eval ::ns {}
  2. puts "scheduling wakeup"
  3. after 10000 {
  4. puts "after fires"
  5. set ::ns::foo hello
  6. }
  7. puts "waiting for ::ns::foo"
  8. vwait ::ns::foo
  9. puts "done waiting"
  10. puts $::ns::foo