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

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Wed Aug 11 22:59:39 EDT 2010


Author: matju
Date: Wed Aug 11 22:59:39 2010
New Revision: 6043

Log:
print object classname and arguments, of the env of the parent of [gf/error] when [gf/error] prints something

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Wed Aug 11 22:59:39 2010
@@ -744,7 +744,13 @@
 };
 
 \def 0 list (...) {
+	t_binbuf *b = mom->gl_obj.te_binbuf;
+	t_canvasenvironment *ce = canvas_getenv(canvas_getabstop(mom));
 	std::ostringstream o;
+	o << "[";
+	if (binbuf_getnatom(b)) o<<*binbuf_getvec(b);
+	for (int i=0; i<ce->ce_argc; i++) o << " " << ce->ce_argv[i];
+	o << "]: ";
 	pd_oprintf(o,format.data(),argc,argv);
 	t_canvas *canvas = canvas_getrootfor(mom);
 	string s = o.str();



More information about the Gridflow-cvs mailing list