[Gridflow-cvs] [svn] commit: r5826 - /trunk/src/classes2.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Wed Jul 28 16:54:45 EDT 2010


Author: matju
Date: Wed Jul 28 16:54:44 2010
New Revision: 5826

Log:
proper support for $0

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Wed Jul 28 16:54:44 2010
@@ -178,7 +178,9 @@
 		binbuf_add(d,max(int(binbuf_getnatom(b))-1,0),binbuf_getvec(b)+1);
 		t_canvasenvironment *pce = canvas_getenv(canvas->gl_owner);
 		if (!pce) RAISE("no canvas environment for canvas containing canvas containing [setargs]");
+		pd_pushsym((t_pd *)canvas);
 		binbuf_eval(d,(t_pd *)bself,pce->ce_argc,pce->ce_argv);
+		pd_popsym((t_pd *)canvas);
 		binbuf_free(d);
 		glist_retext(canvas->gl_owner,(t_object *)canvas);
 	}



More information about the Gridflow-cvs mailing list