[Gridflow-cvs] [svn] commit: r4559 - /trunk/base/flow_objects2.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sat Oct 31 22:55:00 EDT 2009


Author: matju
Date: Sat Oct 31 22:54:59 2009
New Revision: 4559

Log:
[gf/canvas_xid]: merge methods 'bang' and 'whole'

Modified:
    trunk/base/flow_objects2.c

Modified: trunk/base/flow_objects2.c
==============================================================================
--- trunk/base/flow_objects2.c (original)
+++ trunk/base/flow_objects2.c Sat Oct 31 22:54:59 2009
@@ -216,21 +216,18 @@
 	}
 	~GFCanvasXID () {pd_unbind((t_pd *)bself,name);}
 	\decl 0 bang ();
-	\decl 0 whole ();
-	\decl 0 xid (t_symbol *t);
-};
-\def 0 bang () {
-	t_canvas *mom = bself->mom;
-	for (int i=0; i<n; i++) {mom = mom->gl_owner; if (!mom) RAISE("no such canvas");}
-	sys_vgui("pd %s xid [winfo id .x%lx.c] \\;\n",name->s_name,long(mom));
-}
-\def 0 whole () {
-	t_canvas *mom = bself->mom;
-	for (int i=0; i<n; i++) {mom = mom->gl_owner; if (!mom) RAISE("no such canvas");}
-	sys_vgui("pd %s xid [winfo id .x%lx] \\;\n",  name->s_name,long(mom));
-}
-\def 0 xid (t_symbol *t) {outlet_symbol(bself->outlets[0],t);}
-\end class {install("gf/canvas_xid",1,1);}
+	\decl 0 xid (t_symbol *t, t_symbol *u);
+};
+\def 0 bang () {
+	t_canvas *mom = bself->mom;
+	for (int i=0; i<n; i++) {mom = mom->gl_owner; if (!mom) RAISE("no such canvas");}
+	sys_vgui("pd %s xid [winfo id .x%lx.c] [winfo id .x%lx]\\;\n",name->s_name,long(mom));
+}
+\def 0 xid (t_symbol *t, t_symbol *u) {
+	outlet_symbol(bself->outlets[0],t);
+	outlet_symbol(bself->outlets[1],u);
+}
+\end class {install("gf/canvas_xid",1,2);}
 
 \class GFCanvasHeHeHe : FObject {
 	int n;



More information about the Gridflow-cvs mailing list