ActiveTcl User Guide
|
||
display feedback on the current status of an ongoing operation
to the user. iwidgets::feedback pathName
?options? itk::Widget <- iwidgets::Labeledwidget <-
iwidgets::Feedback
background cursor foreground
highlightColor highlightThickness
tions.
labelBitmap labelFont labelImage
labelMargin
herited options.
ceptable to Tk_GetColor. The default is DodgerBlue.
ceptable to Tk_GetPixels. The default is 20.
any of the forms acceptable to Tk_GetColor. The default
is white.
fault is 10.
back on the current status of an ongoing operation to the user.
name is pathName. This command may be used to invoke various op- erations on the widget. It has the following general form:
pathName option ?arg arg ...?
pathName cget option Returns the current value of the configura- tion option given by option. Option may have any of the values accepted by the scrolledhtml command. pathName configure ?op- tion? ?value option value ...? Query or modify the configuration options of the widget. If no option is specified, returns a list describing all of the available options for pathName (see Tk_Con*- figureInfo for information on the format of this list). If op- tion is specified with no value, then the command returns a list describing the one named option (this list will be identical to the corresponding sublist of the value returned if no option is specified). If one or more option-value pairs are specified, then the command modifies the given widget option(s) to have the given value(s); in this case the command returns an empty string. Option may have any of the values accepted by the iwid*- gets::feedback command. pathName reset Reset the current number of steps completed to 0, and configures the percentage complete label text to 0% pathName step ?inc? Increase the current number of steps completed by the amount specified by inc. Inc defaults to 1.
package require Iwidgets 4.0
iwidgets::feedback .fb -labeltext Status -steps 20 pack .fb -padx
10 -pady 10 -fill both -expand yes
for {set i 0} {$i < 20} {incr i} {
.fb step
after 500
}
tk inspect. The original feedback code is copyright 1995 Lawrence