#N canvas 0 50 695 341 10; #X obj 165 285 sys_gui; #X msg 65 136 tk_setPalette "\$1"; #X msg 65 69 white; #X obj 65 108 pack s; #X text 16 13 if set white first \; it will set the canvas \; colour \; WHY?; #X msg 168 69 darkslategray; #X msg 117 69 orange; #X msg 266 196 tk_setPalette "pink"; #X text 397 196 direct access tk_command; #X msg 205 137 tk_setPalette background [tk_chooseColor]; #X text 467 135 send [white( message first! \; then it will work; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 5 0 3 0; #X connect 6 0 3 0; #X connect 7 0 0 0; #X connect 9 0 0 0;