ProgressBar

This object displays a message and a scale indicating that work is in progress. Methods are available to set the message to display and the percent done.

Example:

 
set w [ProgressBar .pb -text "Test label:" -from 0 -to 100 -value [set v 0]] 
pack $w -fill x -expand 1 
 
# dummy proc to animate the progress bar 
proc foo {} { 
    global w v 
    incr v 
    $w config -text "${v}% done" -value $v 
    if {$v >= 100} { 
       exit 
    } 
    after 100 foo 
} 
after 100 foo

See ProgressBar(n) for more details.

Please send questions or comments to abrighto@eso.org.
Copyright © 1998 ESO - European Southern Observatory