+pager should now work decently on Windows

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

3 files changed, 145 insertions, 107 deletions

diff --git a/0-pager-help.pd b/+pager-help.pd
index 2558d5f..3d38cbf 100644
--- a/0-pager-help.pd
+++ b/+pager-help.pd
@@ -1,9 +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
+#X obj 144 178 pddp/open +pager;
+#X text 20 60 +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
+in order to be controlled by +pager.pd.;
+#X text 36 241 +pager.pd should be the first file in the list in order
 for things to work properly.;
diff --git a/+pager.pd b/+pager.pd
new file mode 100644
index 0000000..1bd6e03
--- /dev/null
+++ b/+pager.pd
@@ -0,0 +1,141 @@
+#N canvas 680 22 420 70 10;
+#N canvas 48 162 589 578 guts 0;
+#X obj 251 124 mapping/tolist;
+#X obj 150 289 list;
+#X obj 251 175 list-abs/list-len;
+#X obj 190 19 loadbang;
+#X obj 156 400 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 150 260 trigger bang float bang bang float;
+#X obj 324 286 list;
+#X obj 324 393 pack symbol symbol;
+#X msg 324 423 \; pd open \$2 \$1;
+#X obj 453 393 send \$0-filename;
+#X msg 453 372 label \$1;
+#X msg 64 98 0;
+#X msg 16 97 1;
+#X obj 151 236 cyclone/counter;
+#X obj 220 300 float 2;
+#X obj 220 323 select 0;
+#X msg 156 424 \; \$1 menuclose 1;
+#X obj 157 356 list-abs/list-idx;
+#X obj 324 306 list-abs/list-idx;
+#X obj 190 42 trigger bang bang bang;
+#X msg 336 497 label \$1;
+#X obj 336 517 send \$0-folder_name;
+#X msg 18 503 label \$1;
+#X obj 18 523 send \$0-current_page;
+#X obj 18 457 pack float float;
+#X obj 18 483 zexy/makesymbol (%s/%s);
+#X obj 63 242 float;
+#X obj 324 332 hcs/split_path;
+#X obj 157 378 hcs/split_path;
+#X obj 271 458 hcs/split_path;
+#N canvas 760 129 484 296 generate 0;
+#X obj 70 70 flatspace/getdir;
+#X obj 70 167 hcs/folder_list;
+#X obj 68 209 select +pager.pd;
+#X obj 70 101 trigger symbol symbol;
+#X obj 247 143 makefilename %s/+pager.pd;
+#X text 167 209 (filter out this file to prevent endless loops);
+#N canvas 121 53 458 308 glob 0;
+#X obj 198 6 inlet;
+#X obj 167 265 outlet;
+#X obj 82 212 makefilename %s/*.pd;
+#X obj 213 212 makefilename %s/[0-9]*.pd;
+#X obj 25 48 zexy/operating_system;
+#X obj 25 72 select windows;
+#X obj 25 25 loadbang;
+#X obj 106 94 bang;
+#X obj 117 160 cyclone/gate 2;
+#X msg 25 116 1;
+#X msg 106 116 2;
+#X text 255 230 glob;
+#X text 116 229 windows;
+#X connect 0 0 8 1;
+#X connect 2 0 1 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 9 0;
+#X connect 5 1 7 0;
+#X connect 6 0 4 0;
+#X connect 7 0 10 0;
+#X connect 8 0 2 0;
+#X connect 8 1 3 0;
+#X connect 9 0 8 0;
+#X connect 10 0 8 0;
+#X restore 70 143 pd glob or windows pattern;
+#X obj 161 254 outlet;
+#X obj 70 17 inlet;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 1 7 0;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 4 0 2 1;
+#X connect 6 0 1 0;
+#X connect 8 0 0 0;
+#X restore 319 72 pd generate file list;
+#X msg 172 139 min 0;
+#X obj 18 434 + 1;
+#X connect 0 0 1 1;
+#X connect 0 0 2 0;
+#X connect 0 0 12 1;
+#X connect 1 0 23 0;
+#X connect 2 0 19 4;
+#X connect 2 0 32 0;
+#X connect 3 0 25 0;
+#X connect 4 0 22 0;
+#X connect 5 0 17 0;
+#X connect 6 0 18 0;
+#X connect 9 0 19 0;
+#X connect 9 1 19 1;
+#X connect 11 0 1 0;
+#X connect 11 1 20 1;
+#X connect 11 2 20 0;
+#X connect 11 3 12 0;
+#X connect 11 4 24 1;
+#X connect 12 0 24 0;
+#X connect 13 0 14 0;
+#X connect 16 0 15 0;
+#X connect 17 0 9 0;
+#X connect 18 0 9 0;
+#X connect 19 0 11 0;
+#X connect 19 0 38 0;
+#X connect 20 0 21 0;
+#X connect 21 1 23 1;
+#X connect 23 0 34 0;
+#X connect 24 0 33 0;
+#X connect 25 0 37 0;
+#X connect 25 1 0 1;
+#X connect 25 2 36 0;
+#X connect 26 0 27 0;
+#X connect 28 0 29 0;
+#X connect 30 0 31 0;
+#X connect 31 0 28 0;
+#X connect 32 0 30 1;
+#X connect 33 0 13 0;
+#X connect 33 0 35 0;
+#X connect 33 1 16 0;
+#X connect 33 1 13 1;
+#X connect 34 1 4 0;
+#X connect 35 1 26 0;
+#X connect 36 0 0 0;
+#X connect 37 0 19 0;
+#X connect 38 0 30 0;
+#X coords 0 -1 1 1 100 50 1 10 10;
+#X restore 6 8 pd guts;
+#X obj 167 8 cnv 15 240 25 empty \$0-folder_name empty 5 12 1 14 -262131
+-28 0;
+#X obj 107 33 cnv 15 300 25 empty \$0-filename empty 5 12 1 14 -262131
+-28 0;
+#X obj 107 8 cnv 15 60 25 empty \$0-current_page empty 5 12 1 14 -262131
+-28 0;
+#X coords 0 0 1 1 85 60 0;
diff --git a/0-pager.pd b/0-pager.pd
deleted file mode 100644
index 376db7b..0000000
--- a/0-pager.pd
+++ /dev/null
@@ -1,103 +0,0 @@
-#N canvas 657 22 422 75 10;
-#N canvas 363 198 731 581 guts 0;
-#X obj 339 114 folder_list;
-#X obj 339 67 getdir;
-#X obj 252 148 mapping/tolist;
-#X obj 150 289 list;
-#X obj 251 175 list-abs/list-len;
-#X obj 339 92 makefilename %s/[0-9]*.pd;
-#X obj 190 19 loadbang;
-#X obj 156 400 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 324 332 split_path;
-#X obj 157 378 split_path;
-#X obj 150 260 trigger bang float bang bang float;
-#X obj 324 286 list;
-#X obj 324 393 pack symbol symbol;
-#X msg 324 423 \; pd open \$2 \$1;
-#X obj 513 413 send \$0-filename;
-#X msg 513 392 label \$1;
-#X msg 64 98 0;
-#X msg 16 97 1;
-#X obj 251 194 - 1;
-#X msg 172 139 min 1;
-#X obj 151 236 cyclone/counter;
-#X obj 220 300 float 2;
-#X obj 220 323 select 0;
-#X msg 156 424 \; \$1 menuclose 1;
-#X obj 157 356 list-abs/list-idx;
-#X obj 324 306 list-abs/list-idx;
-#X obj 389 353 select 0-pager.pd;
-#X obj 190 42 trigger bang bang bang;
-#X obj 271 458 split_path;
-#X msg 336 497 label \$1;
-#X obj 336 517 send \$0-folder_name;
-#X msg 18 503 label \$1;
-#X obj 18 523 send \$0-current_page;
-#X obj 18 457 pack float float;
-#X obj 18 483 zexy/makesymbol (%s/%s);
-#X obj 63 242 float;
-#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 30 0;
-#X connect 4 0 24 0;
-#X connect 5 0 0 0;
-#X connect 6 0 33 0;
-#X connect 7 0 29 0;
-#X connect 8 0 22 0;
-#X connect 9 0 23 0;
-#X connect 12 0 26 0;
-#X connect 12 1 26 1;
-#X connect 14 0 18 0;
-#X connect 14 0 34 0;
-#X connect 14 1 32 0;
-#X connect 15 1 7 0;
-#X connect 16 0 3 0;
-#X connect 16 1 27 1;
-#X connect 16 2 27 0;
-#X connect 16 3 17 0;
-#X connect 16 4 31 1;
-#X connect 17 0 31 0;
-#X connect 18 0 19 0;
-#X connect 21 0 20 0;
-#X connect 22 0 12 0;
-#X connect 23 0 12 0;
-#X connect 24 0 26 4;
-#X connect 24 0 41 0;
-#X connect 25 0 26 0;
-#X connect 26 0 16 0;
-#X connect 26 0 39 0;
-#X connect 27 0 28 0;
-#X connect 28 1 30 1;
-#X connect 30 0 15 0;
-#X connect 31 0 14 0;
-#X connect 32 1 21 0;
-#X connect 32 1 18 1;
-#X connect 33 0 25 0;
-#X connect 33 1 2 1;
-#X connect 33 2 1 0;
-#X connect 34 1 35 0;
-#X connect 35 0 36 0;
-#X connect 37 0 38 0;
-#X connect 39 0 40 0;
-#X connect 40 0 37 0;
-#X connect 41 0 39 1;
-#X coords 0 -1 1 1 100 50 1 10 10;
-#X restore 6 8 pd guts;
-#X obj 167 8 cnv 15 240 25 empty \$0-folder_name intro 5 12 1 14 -262131
--28 0;
-#X obj 107 33 cnv 15 300 25 empty \$0-filename 29.nervous_guis.pd 5
-12 1 14 -262131 -28 0;
-#X obj 107 8 cnv 15 60 25 empty \$0-current_page (31/32) 5 12 1 14
--262131 -28 0;
-#X coords 0 0 1 1 85 60 0;