From 5755075029f576660586b15af7e1253a13949c61 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Thu, 13 Apr 2006 05:27:43 +0000 Subject: 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 --- 0-pager-help.pd | 9 ++++++ 0-pager.pd | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 0000-pager.pd | 87 --------------------------------------------------------- 3 files changed, 95 insertions(+), 87 deletions(-) create mode 100644 0-pager-help.pd create mode 100644 0-pager.pd delete mode 100644 0000-pager.pd 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; -- cgit v1.2.1