What: tkbusy
Where: http://koders.com/tcl/fidDA4B5567EFD3931E8E8AE1FFE99FEDA676B63140.aspx?s=break+continue%|%tkbusy.tcl%|% Description: Tk procedure to disable widgets while an application is busy. Updated: Contact: mailto:[email protected] (Michael Schumacher)
Also check the tk busy command in Tcl 8.6 [L1 ]