Posted to tcl by schelte at Tue Mar 06 17:10:05 GMT 2018view raw

  1. package require http
  2.  
  3. http::geturl http://www.google.com/ -command [list callback 42]
  4.  
  5. proc callback {arg token} {
  6. puts [info level 0]
  7. exit
  8. }
  9.  
  10. vwait forever
  11.