4 destroy [label .make-exist]
6 event add <<Foo>> <Map>
7 bind all <<Foo>> { puts "y %T %W" }
12 event generate . <<Foo>> -when tail
16 #bind all <<IconCreate>> { puts sponge }
17 #bind all <<Sping>> { puts sping%W }
19 # bind all <<IconCreate>> { puts <<%W }
20 # bind all <<IconConfigure>> { puts <C<%W }
24 #event generate .i <<Sping>>
25 #event generate . <<Sping>>
30 #event generate .foo <<Sping>>