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

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;