#N canvas 128 254 589 317 12;
#X msg 54 142 debug;
#X msg 10 57 tot destroy .^.m \, tot bind .^.c <Control-Key> "";
#X msg 41 92 tot global sz .: set sz [wm maxsize .^] .: wm geometry
.^ [expr [lindex $sz 0] - 20]x[expr [lindex $sz 1] - 20]+20+20;
#X obj 10 178 tot .parent;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 3 1 0;