Posted to tcl by aku at Mon Jul 21 20:38:01 GMT 2014view pretty

package require Tk


proc foo {} {
    toplevel .mywin

    set mylabel [label .mywin.mylabel]

    wm protocol .mywin WM_DELETE_WINDOW [list apply {{mylabel} {
        puts $localvar
        destroy .mywin
    }} $mylabel]
}

foo
vwait forever