Posted to tcl by rmax at Wed Jan 08 14:49:42 GMT 2014view pretty
proc geturls {urls {token {}} { if {$token != ""} { http::cleanup $token } if {[llength $urls] == 0} return set urls [lassign $urls url] http::geturl $url -callback [list geturls $urls] }