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

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Thu Oct 29 11:47:43 EDT 2009


Author: matju
Date: Thu Oct 29 11:47:38 2009
New Revision: 4474

Log:
add inlet to #X text

Modified:
    trunk/base/flow_objects2.c

Modified: trunk/base/flow_objects2.c
==============================================================================
--- trunk/base/flow_objects2.c (original)
+++ trunk/base/flow_objects2.c Thu Oct 29 11:47:38 2009
@@ -27,6 +27,8 @@
 #else
 extern "C" {
 #include "bundled/g_canvas.h"
+#include "bundled/m_imp.h"
+extern t_class *text_class;
 };
 #endif
 #define OP(x) op_dict[string(#x)]
@@ -280,7 +282,20 @@
 	}
 	
 }
-\end class {install("gf/canvas_loadbang",1,0);}
+\end class {
+	install("gf/canvas_loadbang",1,0);
+#ifndef DESIREDATA
+	post("text_class hack begin");
+	//text_class->c_firstin = 1;
+	class_setpropertiesfn(text_class,(t_propertiesfn)0xDECAFFED);
+	unsigned long *lol = (unsigned long *)text_class;
+	int i=0;
+	while (lol[i]!=0xDECAFFED) i++;
+	*((char *)(lol+i+1) + 6) = 1;
+	class_setpropertiesfn(text_class,0);
+	post("text_class hack end");
+#endif
+}
 
 \class GFSearchAndReplace : FObject {
 	t_symbol *from;



More information about the Gridflow-cvs mailing list