Posted to tcl by jdc at Tue Apr 02 10:24:54 GMT 2013view raw

  1. package require http
  2.  
  3. proc callback {args} {
  4. set ::completed 1
  5. }
  6.  
  7. set t [http::geturl http://www.tcl.tk -command callback]
  8. vwait completed
  9.  
  10. puts [http::data $t]
  11. http::cleanup $t