Posted to tcl by Stu at Wed Aug 16 14:09:11 GMT 2023view pretty
Why does the <Destroy> event work this way?
$ cat q.tcl
frame .f
button .f.b1
bind .f <Destroy> {puts "f %W"}
bind . <Destroy> {puts "q %W"}
exit
$ wish q.tcl
q .f.b1
f .f
q .f
q .