#N canvas 525 118 417 378 10;
#X obj 20 139 getcanvas;
#X obj 20 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X symbolatom 20 254 20 0 0 0 - - -, f 20;
#X obj 20 232 symbol;
#X msg 20 161 pdsend "canvasinfo [winfo geometry .x\$1.c]";
#X obj 20 211 r canvasinfo;
#X obj 17 85 sys_gui;
#X obj 17 63 r \$0sys_gui-r;
#X text 17 43 patko2014;
#X text 17 6 getcanvas get window name for manipulating canvas with
tcl-tk code;
#X obj 20 182 s \$0sys_gui-r;
#N canvas 526 101 743 385 embedding 1;
#X obj -46 72 getcanvas;
#X obj -46 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 410 96 563 614 script 0;
#X obj 18 581 s \$0sys_gui-r;
#X msg 18 548 ttk::treeview .x\$1.c.t \, .x\$1.c create window 50 250
-window .x\$1.c.t;
#X obj 125 313 s \$0sys_gui-r;
#X obj 157 200 list;
#X obj 182 180 r \$0canvas;
#X obj 18 4 inlet;
#X obj 125 179 t a b;
#X obj 125 235 list prepend;
#X obj 50 491 list;
#X obj 75 471 r \$0canvas;
#X obj 18 470 t a b;
#X obj 18 526 list prepend;
#X obj 18 440 pack 0 0;
#X obj 18 66 route create destroy add remove;
#X obj 71 342 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 71 404 s \$0sys_gui-r;
#X msg 71 384 destroy .x\$1.c.t;
#X obj 18 41 list trim;
#X obj 71 364 list;
#X obj 96 344 r \$0canvas;
#X obj 125 255 list append \$0;
#X msg 125 276 .x\$1.c.t insert "" end -text \$2 -tags \$2 \, .x\$1.c.t
tag bind \$2 <1> [list pdsend "\$3-treeview-s \$2"];
#X connect 1 0 0 0;
#X connect 3 0 7 1;
#X connect 4 0 3 1;
#X connect 5 0 17 0;
#X connect 6 0 7 0;
#X connect 6 1 3 0;
#X connect 7 0 20 0;
#X connect 8 0 11 1;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 10 1 8 0;
#X connect 11 0 1 0;
#X connect 12 0 10 0;
#X connect 13 0 12 0;
#X connect 13 1 14 0;
#X connect 13 2 6 0;
#X connect 14 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 13 0;
#X connect 18 0 16 0;
#X connect 19 0 18 1;
#X connect 20 0 21 0;
#X connect 21 0 2 0;
#X restore 41 93 pd script;
#X obj -46 34 loadbang;
#X obj -46 92 s \$0canvas;
#X obj 421 217 print TREEVIEW;
#X msg 440 83 bloubi;
#X msg 449 104 boulga;
#X msg 421 38 foo;
#X msg 430 59 bar;
#X obj 421 140 list prepend add;
#X text 420 18 add items;
#X obj 421 196 r \$0-treeview-s;
#X obj 421 163 s \$0treeview-r;
#X obj 41 70 r \$0treeview-r;
#X obj 171 83 s \$0treeview-r;
#X msg 171 35 create 50 200;
#X msg 193 58 destroy;
#X text 173 10 draw treeview;
#X text -47 13 get canvas id;
#X text 37 50 tk commands;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 3 0 1 0;
#X connect 6 0 10 0;
#X connect 7 0 10 0;
#X connect 8 0 10 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 12 0 5 0;
#X connect 14 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 15 0;
#X restore 22 287 pd embedding;
#X text 44 116 get canvas geometry command;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 10 0;
#X connect 5 0 3 0;
#X connect 7 0 6 0;