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

.fb step 50