Posted to tcl by aku at Mon Jul 21 20:38:01 GMT 2014view raw
- 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