From 3faf17f7b713905f582def227df90dac15f3468d Mon Sep 17 00:00:00 2001
From: "N.N." <chr15m@users.sourceforge.net>
Date: Tue, 10 Jul 2007 07:47:46 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r7969, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/abstractions/s-abstractions/; revision=7970
---
 sssad/panel.pd | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100644 sssad/panel.pd

(limited to 'sssad/panel.pd')

diff --git a/sssad/panel.pd b/sssad/panel.pd
new file mode 100644
index 0000000..088af6d
--- /dev/null
+++ b/sssad/panel.pd
@@ -0,0 +1,92 @@
+#N canvas 0 0 733 629 10;
+#X obj 601 349 textfile;
+#X msg 484 256 clear;
+#X obj 601 273 list prepend add;
+#X obj 601 299 list trim;
+#X obj 86 520 textfile;
+#X obj 86 550 s SSSAD;
+#X obj 86 462 until;
+#X msg 86 441 100;
+#X text 81 572 also received inside sssad;
+#X obj 465 350 s SSSAD_ADMIN;
+#X obj 601 205 r SSSAD_ADMIN;
+#X obj 601 249 route persist;
+#X obj 601 227 list trim;
+#X msg 465 284 save;
+#X msg 479 323 set;
+#X obj 154 547 s SSSAD_ADMIN;
+#X msg 154 522 set;
+#X obj 446 133 savepanel;
+#X msg 446 397 write \$1;
+#X obj 6 24 bng 14 250 50 0 \$0-save_as empty save_as 17 7 0 8 -128992
+-1 -1;
+#X obj 86 418 t b a;
+#X msg 133 463 read \$1 \, rewind;
+#X obj 86 346 openpanel;
+#X text 118 441 Avoid loops. A bang normally also works.;
+#X obj 86 395 symbol;
+#X text 40 597 Hint: get creative with the [OSCroute] external!;
+#X obj 446 110 r \$0-save_as;
+#X obj 374 110 r \$0-save;
+#X obj 6 42 bng 14 250 50 0 \$0-save empty save 17 7 0 8 -128992 -66577
+-1;
+#X obj 6 60 bng 14 250 50 0 \$0-load empty load 17 7 0 8 -128992 -66577
+-66577;
+#X obj 86 323 r \$0-load;
+#X obj 446 214 t a b b b;
+#X text 103 27 This abstraction and all the other sssad state saving
+stuff is due to the genius of Frank Barknecht. Any mistakes are purely
+my own.;
+#X obj 504 235 s SSSAD_SAVE;
+#X obj 446 193 symbol;
+#X obj 14 248 sel 0;
+#X obj 14 202 loadbang;
+#X obj 14 223 list append \$1;
+#X obj 74 292 s \$0/filename;
+#X text 11 175 only set the filename if one is supplied;
+#X obj 123 372 r \$0/filename;
+#X obj 520 132 r \$0/filename;
+#X obj 344 214 s \$0/filename;
+#X obj 446 155 t s s;
+#X text 154 324 if the load button is pressed;
+#X text 372 93 if save or save as are clicked;
+#X obj 44 270 t b s;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 0 0;
+#X connect 4 0 5 0;
+#X connect 4 1 6 1;
+#X connect 4 1 16 0;
+#X connect 6 0 4 0;
+#X connect 7 0 6 0;
+#X connect 10 0 12 0;
+#X connect 11 0 2 0;
+#X connect 12 0 11 0;
+#X connect 13 0 9 0;
+#X connect 14 0 9 0;
+#X connect 16 0 15 0;
+#X connect 17 0 43 0;
+#X connect 18 0 0 0;
+#X connect 20 0 7 0;
+#X connect 20 1 21 0;
+#X connect 21 0 4 0;
+#X connect 22 0 24 0;
+#X connect 24 0 20 0;
+#X connect 26 0 17 0;
+#X connect 27 0 34 0;
+#X connect 30 0 22 0;
+#X connect 31 0 18 0;
+#X connect 31 1 13 0;
+#X connect 31 2 1 0;
+#X connect 31 3 33 0;
+#X connect 34 0 31 0;
+#X connect 35 1 46 0;
+#X connect 36 0 37 0;
+#X connect 37 0 35 0;
+#X connect 40 0 24 1;
+#X connect 41 0 34 1;
+#X connect 43 0 42 0;
+#X connect 43 1 34 0;
+#X connect 46 0 24 0;
+#X connect 46 1 38 0;
+#X coords 0 -1 1 1 85 80 1 0 0;
-- 
cgit v1.2.1