wm title . "Feedback Example"
wm geometry . 225x75

##=========================================================
##  Create a Feedback iwidget
##=========================================================
##
iwidgets::feedback .fb \
  -steps 40 \
  -labeltext "Loading File..." \
  -barcolor red \
  -barheight 90 \
  -troughcolor ghostwhite

pack .fb \
  -fill x


##
##	Change the appearance of the trough and bar
##
.fb component trough configure \
  -relief ridge \
  -bd 3

.fb component bar configure \
  -bd 10 \
  -relief sunken

.fb component hull configure \
  -relief groove \
  -bd 4


##
##	Create a task that needs feedback
##
foreach s {1 2 3 4 5} {

  update idletasks
  .fb step $s
  after 1000
}