Tk Library Source Code: Artifact [80086afe12]

Artifact 80086afe121852b62ec34783bd21e3935c5972aa:

Attachment "a.tcl" to ticket [1105778fff] added by olaborda 2005-01-20 15:10:03.

#!/usr/local/bin/wish

package require -exact BWidget 1.7.0


proc cbLdCancel {} {
  puts "Click"
}

set Progress 0
set Action "Loading files..."

ProgressDlg .loading -parent . -title "Loading" -type normal \
  -textvariable Action -variable Progress -maximum 20000 -stop "Cancel" \
  -command cbLdCancel

for {set x 0} {$x<20000} {incr x} {
  incr Progress
}