Posted to tcl by colin at Fri May 28 03:16:29 GMT 2010view raw

  1. proc bottomp {y} {
  2. after 0 top 1
  3. yield
  4. }
  5.  
  6. proc topp {x} {
  7. coroutine bottom bottomp 2
  8. after 0 bottom 3
  9. yield
  10. }
  11.  
  12. coroutine top topp 1
  13. set done 0
  14. vwait done
  15.  
  16.