renamed [parentposition] to [canvasposition] (consistent naming scheme);

added more helppatches

svn path=/trunk/externals/iem/iemguts/; revision=10272

6 files changed, 198 insertions, 19 deletions

diff --git a/help/canvasdollarzero-help.pd b/help/canvasdollarzero-help.pd
new file mode 100644
index 0000000..4a12721
--- /dev/null
+++ b/help/canvasdollarzero-help.pd
@@ -0,0 +1,32 @@
+#N canvas 251 447 635 427 10;
+#X obj 99 229 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 81 25 canvasdollarzero;
+#X text 207 25 get \$0 of the (parent) canvas;
+#X msg 88 128 bang;
+#X obj 88 148 canvasdollarzero;
+#X symbolatom 88 168 10 0 0 0 - - -;
+#X text 57 85 this object is a shameless clone of iemlib's [parentdollarzero]
+with an added feature.;
+#X text 53 194 the feature is \, that you can query the \$0 of _any_
+parent canvas;
+#N canvas 0 0 781 383 canvasdollarzero 0;
+#X obj 147 72 inlet;
+#X text 298 167 "1" indicates to read the parent patch's (depth:1)
+\$0;
+#X msg 147 126 bang;
+#X symbolatom 182 188 10 0 0 0 - - -;
+#X obj 147 213 outlet;
+#X obj 147 166 canvasdollarzero 1;
+#X text 125 275 ok \, this example is not very splendid \, as \$0 is
+the same for a patch and all it's subpatches anyhow \; nevertheless
+\, believe me that it also works with abstractions;
+#X connect 0 0 2 0;
+#X connect 2 0 5 0;
+#X connect 5 0 3 0;
+#X connect 5 0 4 0;
+#X restore 99 248 pd canvasdollarzero 1;
+#X text 58 308 (c) 2008 IOhannes m zmoelnig \, Thomas Musil;
+#X connect 0 0 8 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
diff --git a/help/canvasindex-help.pd b/help/canvasindex-help.pd
new file mode 100644
index 0000000..92e969e
--- /dev/null
+++ b/help/canvasindex-help.pd
@@ -0,0 +1,58 @@
+#N canvas 180 165 635 592 10;
+#X msg 88 128 bang;
+#X obj 81 25 canvasindex;
+#X text 207 25 get the ID/index of an abstraction/subpatch within it's
+containing patch;
+#X text 99 88 this object allows you to dynamically find out indicies
+to connect with dynamic patching;
+#N canvas 0 0 450 300 object1 0;
+#X obj 75 48 inlet;
+#X obj 75 189 outlet;
+#X obj 75 129 canvasindex;
+#X obj 324 59 inlet;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 88 168 pd object1;
+#X obj 88 148 t b b;
+#N canvas 0 0 450 300 object2 0;
+#X obj 75 48 inlet;
+#X obj 75 189 outlet;
+#X obj 75 129 canvasindex;
+#X obj 281 205 outlet;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 188 168 pd object2;
+#X floatatom 188 191 5 0 0 0 - - -;
+#X floatatom 88 192 5 0 0 0 - - -;
+#X text 47 547 (c) 2008 IOhannes m zmoelnig;
+#X obj 88 288 namecanvas \$0-canvas;
+#X obj 88 269 send \$0-canvas;
+#X msg 88 245 connect \$2 1 \$1 1;
+#X obj 88 222 pack;
+#X msg 101 378 bang;
+#X floatatom 101 422 5 0 0 0 - - -;
+#N canvas 0 0 450 300 objectcount 0;
+#X obj 75 48 inlet;
+#X obj 75 189 outlet;
+#X obj 75 129 canvasindex 1;
+#X connect 0 0 2 0;
+#X connect 2 1 1 0;
+#X restore 101 398 pd objectcount;
+#X text 71 347 the second outlet tells you \, how many objects the
+parent patch contains in total.;
+#X text 55 461 you can specify the depth of the parent-patch via a
+optional argument:;
+#X obj 79 496 canvasindex 2;
+#X text 178 494 will work on the grandparent (parent-depth:2) of this
+patch;
+#X connect 0 0 5 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 5 1 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 1;
+#X connect 8 0 13 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 16 0;
+#X connect 16 0 15 0;
diff --git a/help/canvasposition-help.pd b/help/canvasposition-help.pd
new file mode 100644
index 0000000..8c230af
--- /dev/null
+++ b/help/canvasposition-help.pd
@@ -0,0 +1,62 @@
+#N canvas 1388 107 635 592 10;
+#X obj 81 25 canvasindex;
+#X text 47 547 (c) 2008 IOhannes m zmoelnig;
+#X text 55 471 you can specify the depth of the parent-patch via a
+optional argument:;
+#X text 178 504 will work on the grandparent (parent-depth:2) of this
+patch;
+#X text 207 25 get/set the position of the containing patch within
+it's parent;
+#X text 39 88 this object allows you to retrieve the position of an
+abstraction/subpatch within it's containing canvas;
+#X msg 98 124 bang;
+#X obj 98 172 unpack;
+#X floatatom 137 194 5 0 0 0 - - -;
+#X floatatom 98 194 5 0 0 0 - - -;
+#X text 178 145 <--- you can move this object and click "bang" again
+;
+#X msg 88 253 bang;
+#X obj 88 292 unpack;
+#X floatatom 127 314 5 0 0 0 - - -;
+#X floatatom 88 314 5 0 0 0 - - -;
+#X text 168 269 <--- you can move this object and click "bang" again
+;
+#X text 39 218 you can also query the size of the containing canvas
+via the 2nd outlet;
+#N canvas 0 0 450 300 getsize 0;
+#X obj 75 48 inlet;
+#X obj 75 189 outlet;
+#X obj 75 129 canvasposition;
+#X connect 0 0 2 0;
+#X connect 2 1 1 0;
+#X restore 88 272 pd getsize;
+#N canvas 0 0 450 300 getpos 0;
+#X obj 75 48 inlet;
+#X obj 75 189 outlet;
+#X obj 75 129 canvasposition;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 98 148 pd getpos;
+#X text 69 333 note: there is a bug in Pd that might require you to
+save a patch \, before the "size" will actually change;
+#N canvas 0 0 450 300 setpos 0;
+#X obj 75 48 inlet;
+#X obj 75 129 canvasposition;
+#X connect 0 0 1 0;
+#X restore 100 440 pd setpos;
+#X obj 103 398 hsl 128 15 100 400 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 0 1;
+#X obj 52 505 canvasposition 2;
+#X text 46 368 finally you can move an object around (without any hackish
+mouse emulation);
+#X msg 100 418 \$1 440;
+#X connect 6 0 18 0;
+#X connect 7 0 9 0;
+#X connect 7 1 8 0;
+#X connect 11 0 17 0;
+#X connect 12 0 14 0;
+#X connect 12 1 13 0;
+#X connect 17 0 12 0;
+#X connect 18 0 7 0;
+#X connect 21 0 24 0;
+#X connect 24 0 20 0;
diff --git a/help/propertybang-help.pd b/help/propertybang-help.pd
index 30b33ba..8c7696d 100644
--- a/help/propertybang-help.pd
+++ b/help/propertybang-help.pd
@@ -11,7 +11,7 @@
 #X restore 86 152 pd with propertybang;
 #X obj 86 176 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
-#X text 174 44 enables the "property" menu for abstractions;
+#X text 184 44 enables the "property" menu for abstractions;
 #X text 90 77 usage:;
 #X text 140 77 put a [propertybang] object into your abstraction;
 #X text 139 94 put your abstraction into your patch;
diff --git a/help/sendcanvas-help.pd b/help/sendcanvas-help.pd
new file mode 100644
index 0000000..9f8b01d
--- /dev/null
+++ b/help/sendcanvas-help.pd
@@ -0,0 +1,27 @@
+#N canvas 251 447 635 427 10;
+#X obj 81 25 sendcanvas;
+#X text 168 27 send messages to a (parent) canvas;
+#X obj 88 151 sendcanvas;
+#X msg 88 130 obj 300 150 f;
+#X text 57 85 this object will send messages to a canvas \; by default
+it will send a message to the canvas containing it:;
+#X text 53 194 but you can also send to a message to a parent-canvas
+(of any depth);
+#N canvas 0 0 781 310 sendcanvas 0;
+#X obj 147 72 inlet;
+#X obj 147 166 sendcanvas 1;
+#X msg 147 126 obj 300 250 print;
+#X text 252 170 "1" means that the message is sent to the parent-patch
+(depth:1);
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 99 248 pd sendcanvas;
+#X obj 99 229 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 80 306 you can basically achieve this functionality with [namecanvas]
+and an ordinary [send] \; so this object is merely convenient as you
+can dynamify a canvas without prior thought to it;
+#X text 58 295 note:;
+#X text 72 390 (c) 2008 IOhannes m zmoelnig;
+#X connect 3 0 2 0;
+#X connect 7 0 6 0;
diff --git a/src/parentposition.c b/src/canvasposition.c
index 086c902..03f839c 100644
--- a/src/parentposition.c
+++ b/src/canvasposition.c
@@ -1,7 +1,7 @@
 
 /******************************************************
  *
- * parentposition - implementation file
+ * canvasposition - implementation file
  *
  * copyleft (c) IOhannes m zmölnig
  *
@@ -23,7 +23,7 @@
  * by default the position of the containing abstraction within the parent-patch is 
  * queried
  * you can give the "depth" as argument;
- * e.g. [parentposition 1] will set/get the position of the abstraction containing the
+ * e.g. [canvasposition 1] will set/get the position of the abstraction containing the
  * abstraction within its canvas.
  */
 
@@ -32,20 +32,20 @@
 #include "g_canvas.h"
 #include "m_imp.h"
 
-/* ------------------------- parentposition ---------------------------- */
+/* ------------------------- canvasposition ---------------------------- */
 
-static t_class *parentposition_class;
+static t_class *canvasposition_class;
 
-typedef struct _parentposition
+typedef struct _canvasposition
 {
   t_object  x_obj;
   t_canvas  *x_canvas;
 
   t_outlet*xoutlet, *youtlet;
-} t_parentposition;
+} t_canvasposition;
 
 
-static void parentposition_bang(t_parentposition *x)
+static void canvasposition_bang(t_canvasposition *x)
 {
   t_canvas*c=x->x_canvas;
   t_canvas*c0=0;
@@ -76,7 +76,7 @@ static void parentposition_bang(t_parentposition *x)
   outlet_list(x->xoutlet, 0, 2, alist);
 }
 
-static void parentposition_list(t_parentposition *x, t_symbol*s, int argc, t_atom*argv)
+static void canvasposition_list(t_canvasposition *x, t_symbol*s, int argc, t_atom*argv)
 {
   t_canvas*c=x->x_canvas;
   t_canvas*c0=0;
@@ -86,7 +86,7 @@ static void parentposition_list(t_parentposition *x, t_symbol*s, int argc, t_ato
   c0=c->gl_owner;
 
   if(argc==0){
-    parentposition_bang(x);
+    canvasposition_bang(x);
     return;
   }
 
@@ -106,15 +106,15 @@ static void parentposition_list(t_parentposition *x, t_symbol*s, int argc, t_ato
   }
 }
 
-static void parentposition_free(t_parentposition *x)
+static void canvasposition_free(t_canvasposition *x)
 {
   outlet_free(x->xoutlet);
   outlet_free(x->youtlet);
 }
 
-static void *parentposition_new(t_floatarg f)
+static void *canvasposition_new(t_floatarg f)
 {
-  t_parentposition *x = (t_parentposition *)pd_new(parentposition_class);
+  t_canvasposition *x = (t_canvasposition *)pd_new(canvasposition_class);
   t_glist *glist=(t_glist *)canvas_getcurrent();
   t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
   int depth=(int)f;
@@ -133,12 +133,12 @@ static void *parentposition_new(t_floatarg f)
   return (x);
 }
 
-void parentposition_setup(void)
+void canvasposition_setup(void)
 {
-  parentposition_class = class_new(gensym("parentposition"), 
-                                   (t_newmethod)parentposition_new, (t_method)parentposition_free, 
-                                   sizeof(t_parentposition), 0,
+  canvasposition_class = class_new(gensym("canvasposition"), 
+                                   (t_newmethod)canvasposition_new, (t_method)canvasposition_free, 
+                                   sizeof(t_canvasposition), 0,
                                    A_DEFFLOAT, 0);
-  class_addbang(parentposition_class, (t_method)parentposition_bang);
-  class_addlist(parentposition_class, (t_method)parentposition_list);
+  class_addbang(canvasposition_class, (t_method)canvasposition_bang);
+  class_addlist(canvasposition_class, (t_method)canvasposition_list);
 }