Tcl/Tk : How to create progressbar along with running code?

Question

proc foo{} {
//do something
//sleep for 5sec
//do something
//sleep for 5sec
//do something
}
I want as soon as we enter foo, progressbar shou