package require Iwidgets
wm title . "Feedback Example"
wm geometry . 225x75
##=========================================================
## Create a Feedback iwidget
##=========================================================
##
iwidgets::feedback .fb \
-steps 50 \
-labeltext "Loading File..." \
-barcolor red \
-barheight 90 \
-troughcolor ghostwhite
pack .fb \
-fill x
.fb step 50