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

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Tue Aug 10 18:28:55 EDT 2010


Author: matju
Date: Tue Aug 10 18:28:55 2010
New Revision: 6020

Log:
added right inlet

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Tue Aug 10 18:28:55 2010
@@ -1240,10 +1240,12 @@
 }
 
 \class GFL2S : FObject {
-	\constructor () {}
-	\decl 0 list (...) {outlet_symbol(outlets[0],gensym(join(argc,argv," ","").data()));}
-};
-\end class {install("gf/l2s",1,1);}
+	t_symbol *sep;
+	\constructor (t_symbol *sep=0) {this->sep=sep?sep:gensym(" ");}
+	\decl 0 list (...) {outlet_symbol(outlets[0],gensym(join(argc,argv,sep->s_name,"").data()));}
+	\decl 1 symbol (t_symbol *sep) {this->sep=sep;}
+};
+\end class {install("gf/l2s",2,1);}
 
 \class GFSysGui : FObject {
 	\constructor () {}



More information about the Gridflow-cvs mailing list