#N canvas 87 227 619 468 10;
#X obj 20 210 tot .;
#X obj 86 107 dirpanel;
#X obj 20 61 inlet;
#X text 26 302 Can't read dirs with spaces... how to wrap??;
#X obj 20 234 outlet;
#X text 20 17 Lists the files in a directory thanks to dirpanel. Sends
the files matching pattern as a list.;
#X obj 20 110 symbol;
#X text 26 271 ONLY sends absolute pathnames \, otherwise hard to add
before load! No internel data-structure to exploit.;
#X obj 103 235 outlet;
#X text 154 236 Output chosen directory;
#X obj 20 84 route pattern sel-dir set-dir;
#X obj 231 84 loadbang;
#X obj 64 158 pack s s;
#X text 129 200 \$1 is pattern \$2 is dir;
#X msg 63 180 query glob [file join \$2 \$1];
#X obj 86 129 symbol;
#X obj 152 107 symbol;
#X obj 117 352 print tot;
#N canvas 0 22 462 312 pwd 0;
#X text 18 27 This is where used to be.;
#X obj 35 92 inlet;
#X obj 41 184 outlet;
#X obj 48 153 symbol /;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 231 107 pd pwd;
#X connect 0 0 4 0;
#X connect 1 0 15 0;
#X connect 2 0 10 0;
#X connect 6 0 12 0;
#X connect 10 0 6 0;
#X connect 10 1 1 0;
#X connect 10 2 16 0;
#X connect 10 2 8 0;
#X connect 11 0 18 0;
#X connect 12 0 14 0;
#X connect 14 0 0 0;
#X connect 14 0 17 0;
#X connect 15 0 12 1;
#X connect 15 0 8 0;
#X connect 16 0 12 1;
#X connect 18 0 12 1;