Ttk, a part of Tk 8.5, contains a progress bar widget. See http://www.tcl.tk/man/tcl8.5/TkCmd/ttk_progressbar.htm for documentation.
[insert screen capture here]
http://wiki.tcl.tk/_ref/13604 will give you a selection of other wiki pages that reference progress bars.