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

  1. proc foo {} {
  2. toplevel .mywin
  3.  
  4. set mylabel [label .mywin.mylabel]
  5.  
  6. wm protocol .mywin WM_DELETE_WINDOW {
  7. upvar mylabel localmylabel
  8. puts $localvar
  9. destroy .mywin
  10. }
  11. }

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]