chiark / gitweb /
wip subproc
[chiark-tcl-applet.git] / 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