Posted to tcl by jdc at Tue Apr 02 10:24:54 GMT 2013view pretty
package require http
proc callback {args} {
set ::completed 1
}
set t [http::geturl http://www.tcl.tk -command callback]
vwait completed
puts [http::data $t]
http::cleanup $t
package require http
proc callback {args} {
set ::completed 1
}
set t [http::geturl http://www.tcl.tk -command callback]
vwait completed
puts [http::data $t]
http::cleanup $t