A progress bar done with canvas widget.
FROM: http://wiki.tcl.tk/9621
(imaged on 2009 mar 19)


  # build
  package require Tk
  canvas .c -width 200 -height 20 -bd 1 -relief groove -highlightt 0
  .c create rectangle 0 0 0 20 -tags bar -fill navy
  proc run {percent} { .c coords bar 0 0 [expr {int($percent * 2)}] 20 }
  pack .c -padx 10 -pady 10
  # run
  focus -force .c
  raise .c
  for {set i 0} {$i < 100} {incr i} \
  {
    run $i
    after 100
    update
  }