Tk Source Code

Artifact a062fdbaef8b234b83aa5ac19bb1e8e61634432ce417ac1b3b4523ed6a8c2432:

Attachment "exercise-unmap.tcl" to ticket [d4d89d13] added by erikleunissen 2026-03-21 18:25:37.

---

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