28 lines
754 B
Tcl
28 lines
754 B
Tcl
|
package provide Progress-Tcl 1.0
|
||
|
|
|
||
|
|
# This set of routines is used to give feedback to the user that
|
||
|
|
# a series of steps is completing.
|
||
|
|
#
|
||
|
|
# Progress_StepInit is called to start the process. You pass it a header
|
||
|
|
# message and a list of steps (each a message)
|
||
|
|
# Progress_StepPrint is called when a step is completed.
|
||
|
|
# Progress_StepEnd is to terminate the process
|
||
|
|
|
||
|
|
proc Progress_StepInit {msg steps} {
|
||
|
|
global ProgressInfo
|
||
|
|
puts stderr $msg
|
||
|
|
set ProgressInfo(steps) $steps
|
||
|
|
}
|
||
|
|
|
||
|
|
proc Progress_StepPrint {} {
|
||
|
|
global ProgressInfo
|
||
|
|
puts stderr " [lindex $ProgressInfo(steps) 0]"
|
||
|
|
set ProgressInfo(steps) [lrange $ProgressInfo(steps) 1 end]
|
||
|
|
}
|
||
|
|
|
||
|
|
proc Progress_StepEnd {} {
|
||
|
|
global ProgressInfo
|
||
|
|
catch {unset ProgressInfo(steps)}
|
||
|
|
}
|
||
|
|
|