1 files changed, 32 insertions, 35 deletions
diff --git a/abstractions/pt.entry.pd b/abstractions/pt.entry.pd
index 04b8a05..d759b9b 100644
--- a/abstractions/pt.entry.pd
+++ b/abstractions/pt.entry.pd
@@ -1,5 +1,5 @@
-#N canvas 531 201 130 142 10;
-#N canvas 667 321 508 411 interna 0;
+#N canvas 502 122 445 317 10;
+#N canvas 667 321 524 427 interna 0;
 #X text 10 3 Control of text object in chain;
 #X obj 9 21 cnv 15 450 350 empty empty empty 5 8 1 10 -260390 -1 0
 ;
@@ -14,20 +14,19 @@
 #X obj 14 137 r \$0-font-size;
 #X msg 14 159 size \$1;
 #X obj 92 51 prepend text;
-#X obj 148 94 mementoSetup pt.entry \$0;
+#X obj 173 130 mementoSetup pt.entry \$0;
 #X obj 44 204 r \$0-font;
-#X obj 207 279 s \$0-font-popup;
-#X obj 207 222 dirlist;
-#X obj 268 234 print pt.entry-Font-Dir;
-#X msg 158 164 pattern *.ttf;
-#X obj 148 115 t b b;
-#X msg 207 190 set-dir /Applications/PixelTANGO/fonts;
-#X obj 156 138 delay 150;
+#X obj 173 276 s \$0-font-popup;
 #X msg 33 302 list 1 2;
 #X obj 40 353 print;
 #X obj 39 325 t b l;
-#X obj 268 215 route set-dir;
-#X obj 207 256 prepend options;
+#X msg 172 255 append \$1;
+#X obj 172 234 folder_list;
+#X obj 172 151 delay 250;
+#X obj 172 193 getdir;
+#X obj 172 214 makesymbol %s/../fonts/*.ttf;
+#X obj 172 171 t b b;
+#X msg 220 193 options;
 #X connect 2 0 13 0;
 #X connect 4 0 3 0;
 #X connect 5 0 12 0;
@@ -36,21 +35,20 @@
 #X connect 10 0 11 0;
 #X connect 11 0 4 0;
 #X connect 12 0 4 0;
-#X connect 13 0 19 0;
+#X connect 13 0 21 0;
 #X connect 13 1 3 0;
 #X connect 14 0 6 0;
-#X connect 16 0 26 0;
-#X connect 18 0 16 0;
-#X connect 19 0 21 0;
-#X connect 19 1 20 0;
-#X connect 20 0 16 0;
-#X connect 20 0 25 0;
-#X connect 21 0 18 0;
-#X connect 22 0 24 0;
-#X connect 24 0 23 0;
-#X connect 24 1 23 0;
-#X connect 25 0 17 0;
-#X connect 26 0 15 0;
+#X connect 16 0 18 0;
+#X connect 18 0 17 0;
+#X connect 18 1 17 0;
+#X connect 19 0 15 0;
+#X connect 20 0 19 0;
+#X connect 21 0 24 0;
+#X connect 22 0 23 0;
+#X connect 23 0 20 0;
+#X connect 24 0 22 0;
+#X connect 24 1 25 0;
+#X connect 25 0 15 0;
 #X restore 9 241 pd interna;
 #X obj 9 219 inlet;
 #X obj 74 219 inlet;
@@ -75,9 +73,9 @@
 #X obj 165 199 s \$0-font;
 #X obj 251 116 commun /font \$0;
 #X obj 186 94 route bang;
-#X msg 159 236 options Empty;
-#X obj 186 146 popup_lister 500 \$0-font-popup;
-#X obj 3 92 popup 124 25 grey95 Font Empty;
+#X obj 3 92 popup 124 25 grey95 Font;
+#X obj 183 139 r \$0-font-popup;
+#X msg 158 236 options;
 #X connect 0 0 3 0;
 #X connect 0 1 4 0;
 #X connect 1 0 0 0;
@@ -95,11 +93,10 @@
 #X connect 15 0 12 0;
 #X connect 16 0 15 0;
 #X connect 16 1 14 0;
-#X connect 18 0 22 0;
-#X connect 19 0 21 0;
+#X connect 18 0 20 0;
 #X connect 19 1 18 0;
-#X connect 20 0 22 0;
-#X connect 21 0 22 0;
-#X connect 22 0 19 0;
-#X connect 22 1 17 0;
-#X coords 0 0 1 1 130 142 1;
+#X connect 20 0 19 0;
+#X connect 20 1 17 0;
+#X connect 21 0 20 0;
+#X connect 22 0 20 0;
+#X coords 0 0 1 1 130 142 1 0 0;