From a425a2aba64faf2c02f770194acdaf06dc0258ed Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Tue, 26 Aug 2008 06:50:27 +0000
Subject: contextual menu helpers

svn path=/trunk/abstractions/senderfruit/; revision=10261
---
 core/dialog.under-cursor-help.pd | 17 +++++++++
 core/dialog.under-cursor.pd      | 60 ++++++++++++++++++++++++++++++
 core/dialog.yes-no.pd            | 80 ++++++++++++++++++++--------------------
 core/dotrouteOSC.pd              | 18 +++++++++
 core/list-idx-list.pd            | 15 ++++++++
 core/mate.pd                     | 31 ++++++++++++++++
 core/screendimens.pd             | 17 +++++++++
 core/timerr.pd                   |  8 ++++
 8 files changed, 206 insertions(+), 40 deletions(-)
 create mode 100644 core/dialog.under-cursor-help.pd
 create mode 100644 core/dialog.under-cursor.pd
 create mode 100644 core/dotrouteOSC.pd
 create mode 100644 core/list-idx-list.pd
 create mode 100644 core/mate.pd
 create mode 100644 core/screendimens.pd
 create mode 100644 core/timerr.pd

diff --git a/core/dialog.under-cursor-help.pd b/core/dialog.under-cursor-help.pd
new file mode 100644
index 0000000..3d410c8
--- /dev/null
+++ b/core/dialog.under-cursor-help.pd
@@ -0,0 +1,17 @@
+#N canvas 677 392 419 249 10;
+#X text 4 8 [dialog.under-cursor] constructs the appropriate message
+to spawn a pd-window under the cursor's current position.;
+#X text 5 46 Required arguments are the dimensions of the window you'd
+like to spawn (a necessity require by the message to Pd);
+#X obj 45 173 dialog.under-cursor 330 115;
+#X obj 45 197 s pd-\$0.my-dialog;
+#N canvas 563 580 330 115 \$0.my-dialog 0;
+#X text 45 22 Hallo there!;
+#X restore 287 193 pd \$0.my-dialog;
+#X obj 45 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 6 85 The window will automatically stay within your screen's
+boundaries.;
+#X text 273 220 2008 Luke Iannini;
+#X connect 2 0 3 0;
+#X connect 5 0 2 0;
diff --git a/core/dialog.under-cursor.pd b/core/dialog.under-cursor.pd
new file mode 100644
index 0000000..b1a47c2
--- /dev/null
+++ b/core/dialog.under-cursor.pd
@@ -0,0 +1,60 @@
+#N canvas 518 38 492 494 10;
+#X obj 38 10 inlet;
+#X obj 38 53 cursor;
+#X obj 38 74 route motion;
+#X obj 38 449 outlet;
+#X obj 38 96 unpack f f;
+#X obj 38 277 pack f f;
+#X obj 111 195 + 10;
+#X text 174 81 1/2 window width;
+#X text 162 299 window dimens;
+#X msg 38 328 relocate \$1x\$2+0+0 0x0+\$3+\$4;
+#X obj 38 303 list prepend \$1 \$2;
+#X obj 148 93 / 2;
+#X obj 38 252 clip 0 1140;
+#X obj 262 21 loadbang;
+#X obj 38 176 -;
+#X obj 148 70 \$1;
+#X obj 238 159 - \$1;
+#X obj 278 180 - \$2;
+#X obj 38 202 int;
+#X obj 38 355 t b a b;
+#X msg 77 380 vis 0;
+#X obj 38 398 del 10;
+#X msg 38 420 vis 1;
+#X obj 111 252 clip 20 650;
+#X obj 278 201 - 100;
+#X text 265 222 Dock/Menubar/Taskbar/Windowtitlebar;
+#X obj 262 106 screendimens;
+#X obj 262 127 unpack f f;
+#X obj 38 31 t b;
+#X connect 0 0 28 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 4 0 14 0;
+#X connect 4 1 6 0;
+#X connect 5 0 10 0;
+#X connect 6 0 23 0;
+#X connect 9 0 19 0;
+#X connect 10 0 9 0;
+#X connect 11 0 14 1;
+#X connect 12 0 5 0;
+#X connect 13 0 15 0;
+#X connect 13 0 26 0;
+#X connect 14 0 18 0;
+#X connect 15 0 11 0;
+#X connect 16 0 12 2;
+#X connect 17 0 24 0;
+#X connect 18 0 12 0;
+#X connect 19 0 21 0;
+#X connect 19 1 3 0;
+#X connect 19 2 20 0;
+#X connect 20 0 3 0;
+#X connect 21 0 22 0;
+#X connect 22 0 3 0;
+#X connect 23 0 5 1;
+#X connect 24 0 23 2;
+#X connect 26 0 27 0;
+#X connect 27 0 16 0;
+#X connect 27 1 17 0;
+#X connect 28 0 1 0;
diff --git a/core/dialog.yes-no.pd b/core/dialog.yes-no.pd
index 3f20f2e..88cef91 100644
--- a/core/dialog.yes-no.pd
+++ b/core/dialog.yes-no.pd
@@ -1,47 +1,47 @@
-#N canvas 560 416 536 385 10;
-#N canvas 156 873 303 111 \$0.dialog-box 0;
-#X obj -8 -8 cnv 15 300 30 empty \$0.line1 Really-replace-defaults?
-20 12 0 14 -233017 -66577 0;
-#X obj -8 23 cnv 15 300 30 empty \$0.line2 empty 20 12 0 14 -233017
--66577 0;
-#X obj 54 61 bng 30 250 50 0 \$0.yes-s \$0.yes-r Yes. 35 15 0 10 -4032
+#N canvas 266 442 628 346 10;
+#N canvas 781 650 305 105 \$0.dialog-box 0;
+#X obj 2 2 cnv 15 300 30 empty \$0.line1 Are_you_sure? 20 12 0 14 -262144
+-1 0;
+#X obj 2 33 cnv 15 300 30 empty \$0.line2 empty 20 12 0 14 -262144
+-1 0;
+#X obj 74 71 bng 30 250 50 0 \$0.yes-s \$0.yes-r Yes. 35 15 0 10 -4032
 -1 -1;
-#X obj 164 61 bng 30 250 50 0 \$0.no-s \$0.no-r No. 35 15 0 10 -86853
+#X obj 184 71 bng 30 250 50 0 \$0.no-s \$0.no-r No. 35 15 0 10 -86853
 -1 -1;
-#X restore 352 30 pd \$0.dialog-box;
-#X obj 11 82 inlet;
-#X obj 13 189 r \$0.yes-s;
-#X obj 53 209 r \$0.no-s;
-#X msg 13 233 1;
-#X msg 11 109 vis 1;
-#X msg 53 233 vis 0;
-#X obj 13 282 outlet;
-#X obj 298 111 loadbang;
-#X obj 298 133 list append \$1;
-#X obj 298 158 s2l-explode;
-#X obj 298 184 list split 30;
-#X obj 298 294 list-l2s;
-#X obj 335 215 list-l2s;
-#X obj 298 319 prepent label;
-#X obj 335 236 prepent label;
-#X obj 298 345 s \$0.line1;
-#X obj 335 258 s \$0.line2;
-#X obj 53 255 s pd-\$0.dialog-box;
-#X obj 11 136 s pd-\$0.dialog-box;
-#X connect 1 0 5 0;
+#X restore 49 308 pd \$0.dialog-box;
+#X obj 31 22 inlet;
+#X obj 33 159 r \$0.yes-s;
+#X obj 73 179 r \$0.no-s;
+#X msg 33 203 1;
+#X msg 73 203 vis 0;
+#X obj 33 252 outlet;
+#X obj 344 40 loadbang;
+#X obj 344 87 s2l-explode;
+#X obj 344 113 list split 30;
+#X obj 344 223 list-l2s;
+#X obj 381 144 list-l2s;
+#X obj 344 248 prepent label;
+#X obj 381 165 prepent label;
+#X obj 344 274 s \$0.line1;
+#X obj 381 187 s \$0.line2;
+#X obj 73 225 s pd-\$0.dialog-box;
+#X obj 31 67 s pd-\$0.dialog-box;
+#X obj 31 45 dialog.under-cursor 305 105 1440 900;
+#X obj 344 62 list-onearg \$1 Are_you_sure?;
+#X connect 1 0 18 0;
 #X connect 2 0 4 0;
-#X connect 2 0 6 0;
-#X connect 3 0 6 0;
-#X connect 4 0 7 0;
-#X connect 5 0 19 0;
-#X connect 6 0 18 0;
+#X connect 2 0 5 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 16 0;
+#X connect 7 0 19 0;
 #X connect 8 0 9 0;
 #X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 12 0;
-#X connect 11 1 13 0;
-#X connect 11 2 12 0;
+#X connect 9 1 11 0;
+#X connect 9 2 10 0;
+#X connect 10 0 12 0;
+#X connect 11 0 13 0;
 #X connect 12 0 14 0;
 #X connect 13 0 15 0;
-#X connect 14 0 16 0;
-#X connect 15 0 17 0;
+#X connect 18 0 17 0;
+#X connect 19 0 8 0;
diff --git a/core/dotrouteOSC.pd b/core/dotrouteOSC.pd
new file mode 100644
index 0000000..f4cf18b
--- /dev/null
+++ b/core/dotrouteOSC.pd
@@ -0,0 +1,18 @@
+#N canvas 0 22 350 222 10;
+#X obj 123 68 loadbang;
+#X obj 123 88 list append \$1;
+#X obj 48 190 outlet;
+#X obj 48 169 sdeeprouteOSC;
+#X msg 123 148 /\$1;
+#X obj 48 144 inlet;
+#X obj 94 47 inlet;
+#X obj 123 128 list2symbol /;
+#X obj 123 108 symbol2list .;
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 6 0 8 0;
+#X connect 7 0 4 0;
+#X connect 8 0 7 0;
diff --git a/core/list-idx-list.pd b/core/list-idx-list.pd
new file mode 100644
index 0000000..7fe4c15
--- /dev/null
+++ b/core/list-idx-list.pd
@@ -0,0 +1,15 @@
+#N canvas 244 335 182 200 10;
+#X obj 39 131 list-idx;
+#X obj 60 87 dollarg;
+#X obj 39 109 list;
+#X obj 60 66 loadbang;
+#X obj 39 23 inlet;
+#X obj 39 44 t b a;
+#X obj 39 156 outlet;
+#X connect 0 0 6 0;
+#X connect 1 0 2 1;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 5 1 0 1;
diff --git a/core/mate.pd b/core/mate.pd
new file mode 100644
index 0000000..6490d07
--- /dev/null
+++ b/core/mate.pd
@@ -0,0 +1,31 @@
+#N canvas 0 22 450 300 10;
+#X obj 284 110 getdir 1;
+#X obj 284 163 list2symbol /;
+#X obj 284 75 t b b;
+#X obj 347 110 getpatchname 1;
+#X obj 284 133 list append;
+#X obj 284 51 loadbang;
+#X obj 284 195 s \$0fullFile;
+#X obj 364 195 s \$0file;
+#X obj 233 196 s \$0dir;
+#X obj 144 167 popen;
+#X obj 144 110 list;
+#X obj 144 80 r \$0edit;
+#X obj 175 110 r \$0fullFile;
+#X msg 144 137 mate \$1;
+#X obj 101 101 bng 15 250 50 0 \$0edit \$0editR T 4 8 0 12 -139998
+-262144 -262144;
+#X connect 0 0 4 0;
+#X connect 0 0 8 0;
+#X connect 1 0 6 0;
+#X connect 2 0 0 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 1;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 5 0 2 0;
+#X connect 10 0 13 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 1;
+#X connect 13 0 9 0;
+#X coords 0 -1 1 1 17 17 2 100 100;
diff --git a/core/screendimens.pd b/core/screendimens.pd
new file mode 100644
index 0000000..c60a1a3
--- /dev/null
+++ b/core/screendimens.pd
@@ -0,0 +1,17 @@
+#N canvas 880 47 296 242 10;
+#X msg 56 87 query winfo screenwidth .;
+#X obj 56 164 pack f f;
+#X msg 101 109 query winfo screenheight .;
+#X obj 56 59 t b b;
+#X obj 56 35 inlet;
+#X obj 56 190 outlet;
+#X obj 101 131 tot .;
+#X obj 56 109 tot .;
+#X connect 0 0 7 0;
+#X connect 1 0 5 0;
+#X connect 2 0 6 0;
+#X connect 3 0 0 0;
+#X connect 3 1 2 0;
+#X connect 4 0 3 0;
+#X connect 6 0 1 1;
+#X connect 7 0 1 0;
diff --git a/core/timerr.pd b/core/timerr.pd
new file mode 100644
index 0000000..09de7e0
--- /dev/null
+++ b/core/timerr.pd
@@ -0,0 +1,8 @@
+#N canvas 871 385 105 115 10;
+#X obj 17 57 timer;
+#X obj 17 14 inlet;
+#X obj 53 14 inlet;
+#X obj 17 83 outlet;
+#X connect 0 0 3 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
-- 
cgit v1.2.1