Mirror from thread @ core.tcl.tk