Mirror from bwidget @ core.tcl.tk