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

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Thu Apr 15 18:59:49 EDT 2010


Author: matju
Date: Thu Apr 15 18:59:48 2010
New Revision: 5450

Log:
[gridflow]: add 'get folder'

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Thu Apr 15 18:59:48 2010
@@ -1552,7 +1552,10 @@
 \class GridFlowClass : FObject {
 	\constructor () {}
 	\decl 0 get (t_symbol *s=0) {
-		if (!s) {_0_get(0,0,gensym("version"));}
+		if (!s) {
+			_0_get(0,0,gensym("version"));
+			_0_get(0,0,gensym("folder"));
+		}
 		if (s==gensym("version")) {
 			t_atom a[3];
 			SETFLOAT(a+0,GF_VERSION_A);
@@ -1560,6 +1563,12 @@
 			SETFLOAT(a+2,GF_VERSION_C);
 			outlet_anything(outlets[0],s,3,a);
 		}
+		if (s==gensym("folder")) {
+			t_atom a[1];
+			extern t_symbol *gridflow_folder;
+			SETSYMBOL(a+0,gridflow_folder);
+			outlet_anything(outlets[0],s,1,a);
+		}
 	}
 };
 \end class {install("gridflow",1,1);}



More information about the Gridflow-cvs mailing list