#N canvas 216 22 793 604 10;
#X obj 72 208 entry 150 100 grey yellow;
#X obj 11 84 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 32 316 print;
#X msg 109 73 clear;
#X msg 127 94 set one two three four five six;
#X msg 31 29 fgcolour yellow;
#X msg 94 4 bgcolour purple;
#X obj 29 526 entry 155 48 grey70 purple;
#X text 9 355 Creation arguments are: width height bgcolor fgcolor.
The width and height are in pixels.;
#X obj 251 254 select return;
#X obj 79 317 pddp/print;
#X obj 218 165 trigger bang bang;
#X msg 218 186 clear;
#X symbolatom 216 319 10 0 0 1 last_key_typed - -;
#X text 255 275 ^-- hit return to output;
#X msg 123 490 size 400 200;
#X msg 6 4 bgcolour grey;
#X msg 52 52 fgcolour black;
#X text 12 396 The size message currently only takes affect after a
save and reopen.;
#X msg 138 117 append seven eight nine;
#X msg 142 137 append ten eleven.;
#X msg 30 459 fontsize \$1;
#X msg 52 432 12;
#X msg 20 431 9;
#X msg 85 429 98;
#X obj 148 31 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/text.htm
;
#X obj 395 132 entry 300 50 grey70 black;
#X msg 571 101 option relief \$1;
#X obj 570 80 symbol;
#X msg 468 45 flat;
#X msg 503 45 groove;
#X msg 550 45 raised;
#X msg 598 44 ridge;
#X msg 639 44 solid;
#X msg 680 44 sunken;
#X obj 610 233 symbol;
#X msg 591 208 normal;
#X msg 637 208 disabled;
#X msg 609 256 option state \$1;
#X msg 124 465 size 100 50;
#X text 663 235 disable editing;
#X obj 448 297 entry 250 80 grey70 black;
#X obj 440 200 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 10 -262144
-1 -1 0 1;
#X obj 263 509 entry 100 50 grey70 black;
#X obj 262 464 symbol;
#X obj 210 559 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm
;
#X msg 260 429 boat;
#X msg 263 485 option cursor \$1;
#X msg 220 429 clock;
#X msg 356 429 dot;
#X msg 386 429 dotbox;
#X msg 433 429 gumby;
#X msg 476 429 gobbler;
#X msg 477 498 pirate;
#X msg 477 455 mouse;
#X msg 477 477 target;
#X msg 438 227 option insertwidth \$1;
#X obj 385 82 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 10 -262144
-1 -1 0 1;
#X msg 382 102 option borderwidth \$1;
#X msg 456 269 scrollbar \$1;
#X obj 456 249 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X obj 566 417 keyup;
#X msg 566 456 key \$1;
#X floatatom 583 438 5 0 0 0 - - -;
#X msg 269 210 key 3322;
#X obj 566 492 entry 166 54 grey70 black;
#X text 561 393 type single chars:;
#X msg 656 442 key a;
#X msg 657 464 key 9;
#X obj 500 559 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm
;
#X text 367 538 for more cursors:;
#X text 551 544 for more keynums:;
#X msg 648 423 key 65228;
#X msg 477 519 pencil;
#X msg 295 429 coffee_mug;
#X msg 700 464 key 32;
#X connect 0 0 2 0;
#X connect 0 0 10 0;
#X connect 0 1 9 0;
#X connect 0 1 13 0;
#X connect 1 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 9 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 0 0;
#X connect 12 0 0 0;
#X connect 15 0 7 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 19 0 0 0;
#X connect 20 0 0 0;
#X connect 21 0 7 0;
#X connect 22 0 21 0;
#X connect 23 0 21 0;
#X connect 24 0 21 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 29 0 28 0;
#X connect 30 0 28 0;
#X connect 31 0 28 0;
#X connect 32 0 28 0;
#X connect 33 0 28 0;
#X connect 34 0 28 0;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 35 0;
#X connect 38 0 41 0;
#X connect 39 0 7 0;
#X connect 42 0 56 0;
#X connect 44 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 43 0;
#X connect 48 0 44 0;
#X connect 49 0 44 0;
#X connect 50 0 44 0;
#X connect 51 0 44 0;
#X connect 52 0 44 0;
#X connect 53 0 44 0;
#X connect 54 0 44 0;
#X connect 55 0 44 0;
#X connect 56 0 41 0;
#X connect 57 0 58 0;
#X connect 58 0 26 0;
#X connect 59 0 41 0;
#X connect 60 0 59 0;
#X connect 61 0 62 0;
#X connect 61 0 63 0;
#X connect 62 0 65 0;
#X connect 64 0 0 0;
#X connect 67 0 65 0;
#X connect 68 0 65 0;
#X connect 72 0 65 0;
#X connect 73 0 44 0;
#X connect 74 0 44 0;
#X connect 75 0 65 0;