aboutsummaryrefslogtreecommitdiff
path: root/core
diff options
context:
space:
mode:
authorLuke Iannini <lukeiannini@users.sourceforge.net>2008-09-26 07:47:20 +0000
committerLuke Iannini <lukeiannini@users.sourceforge.net>2008-09-26 07:47:20 +0000
commite1983007e587ad4a43b769ab74b076600a949b65 (patch)
tree1ca0f27ad4e024063a3d1ae93a34617f2e607e61 /core
parente28fb440a363a94180c4cb57fbaf1b00065a2810 (diff)
hack to let an abstraction select itself in its parent using iemguts, useful for deleting specific instances of an abstraction (but, it's naturally a very buggy operation)
svn path=/trunk/abstractions/senderfruit/; revision=10311
Diffstat (limited to 'core')
-rw-r--r--core/canvasselect.pd42
1 files changed, 42 insertions, 0 deletions
diff --git a/core/canvasselect.pd b/core/canvasselect.pd
new file mode 100644
index 0000000..1a82d7d
--- /dev/null
+++ b/core/canvasselect.pd
@@ -0,0 +1,42 @@
+#N canvas 0 22 450 300 10;
+#X declare -lib iemguts -lib list-abs;
+#X obj 9 14 import iemguts list-abs;
+#X obj 203 154 list-map;
+#X obj 176 174 list-map;
+#X obj 176 132 t a a;
+#X obj 258 154 - 1;
+#X obj 231 174 + 1;
+#X msg 203 198 mouse \$1 \$2 0 0;
+#X msg 236 105 vis 1 \, editmode 1;
+#X msg 176 219 mouseup \$1 \$2 0;
+#X obj 176 38 inlet;
+#N canvas 35 286 450 300 canvasposition 0;
+#X obj 172 58 inlet;
+#X obj 172 103 outlet;
+#X obj 172 81 canvasposition \$1;
+#X text 84 8 subpatch'd so its argument lines up with sendcanvas's
+(sendcanvas defaults to its immediate parent \, canvas position defaults
+to its grandparent);
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 176 82 pd canvasposition;
+#X obj 176 61 t b;
+#X obj 236 125 sendcanvas \$1;
+#X obj 176 246 sendcanvas \$1;
+#X obj 176 105 t a b;
+#X connect 1 0 6 0;
+#X connect 1 1 4 0;
+#X connect 2 0 8 0;
+#X connect 2 1 5 0;
+#X connect 3 0 2 0;
+#X connect 3 1 1 0;
+#X connect 4 0 1 1;
+#X connect 5 0 2 1;
+#X connect 6 0 13 0;
+#X connect 7 0 12 0;
+#X connect 8 0 13 0;
+#X connect 9 0 11 0;
+#X connect 10 0 14 0;
+#X connect 11 0 10 0;
+#X connect 14 0 3 0;
+#X connect 14 1 7 0;