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

  1. package require Tk
  2.  
  3.  
  4. proc foo {} {
  5. toplevel .mywin
  6.  
  7. set mylabel [label .mywin.mylabel]
  8.  
  9. wm protocol .mywin WM_DELETE_WINDOW [list apply {{mylabel} {
  10. puts $localvar
  11. destroy .mywin
  12. }} $mylabel]
  13. }
  14.  
  15. foo
  16. vwait forever
  17.