Artifact
50aac4c51c10ecfd829debdd181574c79bc98544cebed42e510457fe8802b759:
Attachment "exercise.tcl" to
ticket [2ef5dd80]
added by
erikleunissen
2026-07-30 12:41:23.
proc handleEvent {W E args} {
puts "$W $E"
}
pack propagate . 0
pack [frame .f -width 100 -height 100 -bg blue]
update
after 1000
bind all <Unmap> [list handleEvent %W <Unmap>]
bind all <Expose> [list handleEvent %W <Expose>]
pack forget .f
update
puts "frame .f ought be removed from the screen"
flush stdout
after 2000
bind all <Unmap> {}
bind all <Expose> {}
exit
