trying to access var

Posted to tcl by haole at Mon Jul 21 19:48:37 GMT 2014view pretty

proc foo {} {
    toplevel .mywin

    set mylabel [label .mywin.mylabel]

    wm protocol .mywin WM_DELETE_WINDOW {
        upvar mylabel localmylabel
        puts $localvar
        destroy .mywin
    }
}

Comments

Posted by aku at Mon Jul 21 19:53:38 GMT 2014 [text] [code]

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