[PD-cvs] SF.net SVN: pure-data:[10391] trunk/externals/iem/iemguts/src/propertybang. c

[zmoelnig at users.sourceforge.net]

Revision: 10391
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10391&view=rev
Author:   zmoelnig
Date:     2008-11-26 11:22:02 +0000 (Wed, 26 Nov 2008)

Log Message:
-----------
discard the $0-hack and use the objlist features of iemguts

Modified Paths:
--------------
    trunk/externals/iem/iemguts/src/propertybang.c

Modified: trunk/externals/iem/iemguts/src/propertybang.c
===================================================================
--- trunk/externals/iem/iemguts/src/propertybang.c	2008-11-26 11:13:07 UTC (rev 10390)
+++ trunk/externals/iem/iemguts/src/propertybang.c	2008-11-26 11:22:02 UTC (rev 10391)
@@ -28,7 +28,7 @@
  */
 
 
-#include "m_pd.h"
+#include "iemguts-objlist.h"
 #include "g_canvas.h"
 
 
@@ -39,33 +39,25 @@
 typedef struct _propertybang
 {
   t_object  x_obj;
-  t_symbol *x_d0name;
 } t_propertybang;
 
 
 static void propertybang_free(t_propertybang *x)
 {
-  pd_unbind(&x->x_obj.ob_pd, x->x_d0name);
+  removeObjectFromCanvases((t_pd*)x);
 }
 
 static void propertybang_bang(t_propertybang *x) {
   outlet_bang(x->x_obj.ob_outlet);
 }
-static void propertybang_properties(t_gobj*z, t_glist*owner) {
-  /* argh: z is the abstraction! but we need to access ourselfs!
-   * we handle this by binding to a special symbol. e.g. "$0 propertybang"
-   * (we use the space between in order to make it hard for the ordinary user 
-   * to use this symbol for other things...
-   */
 
-  /* alternatively we could just search the abstraction for all instances of propertybang_class
-   * and bang these;
-   * but using the pd_bind-trick is simpler for now
-   * though not as sweet, as somebody could use our bind-symbol for other things...
-   */
-
-  t_symbol*s_d0name=canvas_realizedollar((t_canvas*)z, gensym("$0 propertybang"));
-    pd_bang(s_d0name->s_thing);
+static void propertybang_properties(t_gobj*z, t_glist*owner) {
+  t_iemguts_objlist*obj=objectsInCanvas((t_pd*)z);
+   while(objs) {
+    t_propertybang*x=(t_propertybang*)objs->obj;
+    propertybang_bang(x);
+    objs=objs->next;
+  } 
 }
 
 static void *propertybang_new(void)
@@ -77,10 +69,9 @@
 
   outlet_new(&x->x_obj, &s_bang);
 
-  x->x_d0name=canvas_realizedollar(canvas, gensym("$0 propertybang"));
-  pd_bind(&x->x_obj.ob_pd, x->x_d0name);
-
   class_setpropertiesfn(class, propertybang_properties);
+
+  addObjectToCanvas((t_pd*)canvas, (t_pd*)x);
   return (x);
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.