tests/multi/autoGUI.tcl

   1 #!/usr/local/bin/wish8.4
   2
   3 package require TclCurl
   4
   5 proc CleanUp {multiHandle easyHandle} {
   6     puts "\n\nCleaning up $multiHandle - $easyHandle\n\n"
   7
   8     $multiHandle removehandle $easyHandle
   9     $multiHandle cleanup
  10     $easyHandle  cleanup
  11
  12     puts "\n\nAll done\n\n"
  13
  14     exit
  15 }
  16
  17 proc StartTransfer {} {
  18     set multiHandle [curl::multiinit]
  19     set easyHandle  [curl::init]
  20
  21     $easyHandle  configure -url http://127.0.0.1/~andres/HomePage.tar.gz -file home.tar.gz
  22
  23     $multiHandle addhandle $easyHandle
  24
  25     $multiHandle auto -command "CleanUp $multiHandle $easyHandle"
  26 }
  27
  28 set start [button .start -text Start -command StartTransfer]
  29 set stop  [button .stop  -text Stop  -command StopTransfer]
  30
  31 pack $start $stop -side left -padx 10 -pady 10