Posted to tcl by Stu at Wed Aug 16 14:09:09 GMT 2023view raw

  1. Why does the <Destroy> event work this way?
  2.  
  3. $ cat q.tcl
  4. frame .f
  5. button .f.b1
  6. bind .f <Destroy> {puts "f %W"}
  7. bind . <Destroy> {puts "q %W"}
  8. exit
  9.  
  10. $ wish q.tcl
  11. q .f.b1
  12. f .f
  13. q .f
  14. q .