huh

   1 #!/usr/bin/wish8.4 -f
   2 # -*- Tcl -*-
   3
   4 destroy [label .make-exist]
   5
   6 event add <<Foo>> <Map>
   7 bind all <<Foo>> { puts "y %T %W" }
   8 puts q1:
   9 bind all
  10 puts q2:
  11 bind all <<Foo>>
  12 event generate . <<Foo>> -when tail
  13
  14 #frame .i
  15
  16 #bind all <<IconCreate>> { puts sponge }
  17 #bind all <<Sping>> { puts sping%W }
  18
  19 #    bind all <<IconCreate>> { puts <<%W }
  20 #    bind all <<IconConfigure>> { puts <C<%W }
  21
  22 puts gening
  23
  24 #event generate .i <<Sping>>
  25 #event generate . <<Sping>>
  26
  27 #frame .foo
  28 #pack .foo
  29
  30 #event generate .foo <<Sping>>
  31
  32 puts end