Tk Source Code

Artifact fa9cbe1152bf40aa7f1dfe1ff8f8bffcd268b265dc722a97d5015c3e48989eeb:

Attachment "exercise-unmap.tcl" to ticket [d4d89d13] added by erikleunissen 2026-03-19 17:16:24.

---

package require Tk
bind all <Unmap> {puts "Serviced <Unmap> event for window %W ([incr i])"}
wm withdraw .
wm withdraw .
wm withdraw .
update
exit