Mirror from tklib @ core.tcl.tk