fixed crasher bug, it was opening itself in an infinite loop. Now its prevented from opening itself ever; renamed so that it sorts properly on Mac OS X (I hope this works on GNU/Linux and Windows...)

svn path=/trunk/abstractions/pddp/; revision=4898

3 files changed, 95 insertions, 87 deletions

diff --git a/0-pager-help.pd b/0-pager-help.pd
new file mode 100644
index 0000000..2558d5f
--- /dev/null
+++ b/0-pager-help.pd
@@ -0,0 +1,9 @@
+#N canvas 368 122 488 350 10;
+#X obj 144 178 pddp/open 0-pager;
+#X text 20 60 0-pager.pd is an object that allows you to navigate through
+a folder of files with "previous" and "next" buttons.;
+#X text 24 97 To use it \, copy to the folder where the files that
+you want to browser thru are. The filenames need to start with a number
+in order to be controlled by 0-pager.pd.;
+#X text 36 241 0-pager.pd should be the first file in the list in order
+for things to work properly.;
diff --git a/0-pager.pd b/0-pager.pd
new file mode 100644
index 0000000..c107c9f
--- /dev/null
+++ b/0-pager.pd
@@ -0,0 +1,86 @@
+#N canvas 513 22 401 108 10;
+#N canvas 558 199 726 569 guts 0;
+#X obj 289 114 folder_list;
+#X obj 289 67 getdir;
+#X obj 202 148 mapping/tolist;
+#X obj 100 289 list;
+#X obj 201 182 list-abs/list-len;
+#X obj 289 92 makefilename %s/[0-9]*.pd;
+#X obj 141 19 loadbang;
+#X obj 12 398 makefilename pd-%s;
+#X obj 60 10 bng 50 450 50 0 empty empty --> 12 25 1 24 -141952 -1
+-1;
+#X obj 10 10 bng 50 450 50 0 empty empty <-- 10 25 1 24 -87656 -1 -1
+;
+#X text 70 65 next;
+#X text 4 65 previous;
+#X obj 15 132 trigger bang float;
+#X text 94 99 up;
+#X obj 274 332 split_path;
+#X obj 13 376 split_path;
+#X obj 100 260 trigger bang float bang bang float;
+#X obj 274 286 list;
+#X obj 64 452 print previous;
+#X obj 274 393 pack symbol symbol;
+#X msg 274 415 \; pd open \$2 \$1;
+#X obj 463 413 send \$0-filename;
+#X msg 463 392 label \$1;
+#X msg 64 98 0;
+#X msg 16 97 1;
+#X obj 36 260 print;
+#X obj 201 204 - 1;
+#X msg 87 174 min 1;
+#X obj 101 236 cyclone/counter;
+#X obj 170 300 float 2;
+#X obj 123 328 select 0;
+#X msg 12 422 \; \$1 menuclose 1;
+#X obj 13 354 list-abs/list-idx;
+#X obj 274 306 list-abs/list-idx;
+#X obj 339 353 select 0-pager.pd;
+#X obj 140 42 trigger bang bang bang;
+#X connect 0 0 2 0;
+#X connect 1 0 5 0;
+#X connect 2 0 3 1;
+#X connect 2 0 4 0;
+#X connect 2 0 17 1;
+#X connect 3 0 32 0;
+#X connect 4 0 26 0;
+#X connect 5 0 0 0;
+#X connect 6 0 35 0;
+#X connect 7 0 31 0;
+#X connect 8 0 23 0;
+#X connect 9 0 24 0;
+#X connect 12 0 28 0;
+#X connect 12 1 28 1;
+#X connect 14 0 19 0;
+#X connect 14 1 34 0;
+#X connect 15 1 18 0;
+#X connect 15 1 7 0;
+#X connect 16 0 3 0;
+#X connect 16 1 29 1;
+#X connect 16 2 29 0;
+#X connect 16 3 17 0;
+#X connect 16 4 33 1;
+#X connect 17 0 33 0;
+#X connect 19 0 20 0;
+#X connect 22 0 21 0;
+#X connect 23 0 12 0;
+#X connect 24 0 12 0;
+#X connect 26 0 28 4;
+#X connect 27 0 28 0;
+#X connect 28 0 25 0;
+#X connect 28 0 16 0;
+#X connect 29 0 30 0;
+#X connect 30 1 32 1;
+#X connect 32 0 15 0;
+#X connect 33 0 14 0;
+#X connect 34 1 22 0;
+#X connect 34 1 19 1;
+#X connect 35 0 27 0;
+#X connect 35 1 2 1;
+#X connect 35 2 1 0;
+#X coords 0 -1 1 1 100 50 1 10 10;
+#X restore 13 15 pd guts;
+#X obj 114 15 cnv 15 250 50 empty \$0-filename empty 5 25 1 14 -233017
+-28 0;
+#X coords 0 0 1 1 85 60 0;
diff --git a/0000-pager.pd b/0000-pager.pd
deleted file mode 100644
index cd96795..0000000
--- a/0000-pager.pd
+++ /dev/null
@@ -1,87 +0,0 @@
-#N canvas 513 22 389 96 10;
-#N canvas 559 199 710 553 guts 0;
-#X obj 289 114 folder_list;
-#X obj 289 67 getdir;
-#X obj 202 148 mapping/tolist;
-#X obj 175 42 trigger bang bang;
-#X obj 100 289 list;
-#X obj 201 182 list-abs/list-len;
-#X obj 289 92 makefilename %s/[0-9]*.pd;
-#X obj 176 19 loadbang;
-#X obj 12 398 makefilename pd-%s;
-#X obj 60 10 bng 50 450 50 0 empty empty --> 12 25 1 24 -141952 -1
--1;
-#X obj 10 10 bng 50 450 50 0 empty empty <-- 10 25 1 24 -87656 -1 -1
-;
-#X text 70 65 next;
-#X text 4 65 previous;
-#X obj 15 132 trigger bang float;
-#X text 94 99 up;
-#X msg 140 19 bang;
-#X obj 274 332 split_path;
-#X obj 274 306 list-abs/list-idx;
-#X obj 13 376 split_path;
-#X obj 13 354 list-abs/list-idx;
-#X obj 100 260 trigger bang float bang bang float;
-#X obj 274 286 list;
-#X obj 64 452 print previous;
-#X obj 274 363 pack symbol symbol;
-#X msg 274 385 \; pd open \$2 \$1;
-#X obj 463 383 send \$0-filename;
-#X msg 463 362 label \$1;
-#X msg 64 98 0;
-#X msg 16 97 1;
-#X obj 36 260 print;
-#X obj 201 204 - 1;
-#X obj 73 161 loadbang;
-#X msg 74 181 min 1;
-#X obj 101 236 cyclone/counter;
-#X obj 170 300 float 2;
-#X obj 123 328 select 0;
-#X msg 12 422 \; \$1 menuclose 1;
-#X connect 0 0 2 0;
-#X connect 1 0 6 0;
-#X connect 2 0 4 1;
-#X connect 2 0 5 0;
-#X connect 2 0 21 1;
-#X connect 3 0 2 1;
-#X connect 3 1 1 0;
-#X connect 4 0 19 0;
-#X connect 5 0 30 0;
-#X connect 6 0 0 0;
-#X connect 7 0 3 0;
-#X connect 8 0 36 0;
-#X connect 9 0 27 0;
-#X connect 10 0 28 0;
-#X connect 13 0 33 0;
-#X connect 13 1 33 1;
-#X connect 15 0 3 0;
-#X connect 16 0 23 0;
-#X connect 16 1 23 1;
-#X connect 16 1 26 0;
-#X connect 17 0 16 0;
-#X connect 18 1 22 0;
-#X connect 18 1 8 0;
-#X connect 19 0 18 0;
-#X connect 20 0 4 0;
-#X connect 20 1 34 1;
-#X connect 20 2 34 0;
-#X connect 20 3 21 0;
-#X connect 20 4 17 1;
-#X connect 21 0 17 0;
-#X connect 23 0 24 0;
-#X connect 26 0 25 0;
-#X connect 27 0 13 0;
-#X connect 28 0 13 0;
-#X connect 30 0 33 4;
-#X connect 31 0 32 0;
-#X connect 32 0 33 0;
-#X connect 33 0 29 0;
-#X connect 33 0 20 0;
-#X connect 34 0 35 0;
-#X connect 35 1 19 1;
-#X coords 0 -1 1 1 100 50 1 10 10;
-#X restore 13 15 pd guts;
-#X obj 114 15 cnv 15 250 50 empty \$0-filename empty 5 25 1 14 -233017
--28 0;
-#X coords 0 0 1 1 85 60 0;