Tk Source Code

Artifact 3b5bad1df51b1ed0d86ce8036745bdf0169660b612c69cb167084be6f55d3bd1:

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

---

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