#!/usr/bin/wish8.4 -f
# -*- Tcl -*-

destroy [label .make-exist]

event add <<Foo>> <Map>
bind all <<Foo>> { puts "y %T %W" }
puts q1:
bind all
puts q2:
bind all <<Foo>>
event generate . <<Foo>> -when tail

#frame .i

#bind all <<IconCreate>> { puts sponge }
#bind all <<Sping>> { puts sping%W }

#    bind all <<IconCreate>> { puts <<%W }
#    bind all <<IconConfigure>> { puts <C<%W }

puts gening

#event generate .i <<Sping>>
#event generate . <<Sping>>

#frame .foo
#pack .foo

#event generate .foo <<Sping>>

puts end