Tk Source Code

Artifact 73c833d8562b9a6e0a94af6e36f61faed90288cbbe9ede86693afd5948ac7826:

Attachment "exercise-unmap.tcl" to ticket [d4d89d13] added by erikleunissen 2026-03-21 08:23:16.

---

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