+++ /dev/null
-#!/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