Feedback progress bar tcl tk

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