[Gridflow-cvs] [svn] commit: r5831 - /trunk/src/gridflow.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Wed Jul 28 20:56:13 EDT 2010

Author: matju
Date: Wed Jul 28 20:56:13 2010
New Revision: 5831

add [display] and [#see] to Put Menu


Modified: trunk/src/gridflow.cxx
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Wed Jul 28 20:56:13 2010
@@ -1119,14 +1119,16 @@
 		  "$menu add command -label {GridFlow Examples}   -command {gf_menu_open .}\n"
 		"proc gridflow_add_to_put {menu} {\n"
+		  "set c [regsub .m.put $menu \"\"]\n"
  		  "$menu add separator\n"
-		  "$menu add command -label {Display} -command [list pd [regsub .m.put $menu \"\"] obj %X %Y display\\;]"
+		  "$menu add command -label {Display} -command [list pd $c put display \\;]\n"
+		  "$menu add command -label {GridSee} -command [list pd $c put \\#see  \\;]\n"
 		"catch {gridflow_add_to_help .mbar.help}\n"
 		"catch {gridflow_add_to_help $::pd_menus::menubar.help; proc pd {args} {pdsend [join $args " "]}}\n"
 		"catch {rename menu_addstd menu_addstd_old\n"
-		  "proc menu_addstd {mbar} {menu_addstd_old $mbar; gridflow_add_to_help $mbar.help;"
-		  //" gridflow_add_to_put $mbar.put"
+		  "proc menu_addstd {mbar} {menu_addstd_old $mbar; gridflow_add_to_help $mbar.help\n"
+		  "gridflow_add_to_put $mbar.put"
 	delete[] dirresult;
 	delete[] dirname;
@@ -1137,11 +1139,14 @@
     #ifndef __WIN32__
-		signal(SIGBUS, SIG_DFL);
-	#endif
+	signal(SIGBUS, SIG_DFL);
+    #endif
+    void canvas_iemguis(t_canvas *x, t_symbol *s);
     extern t_class *canvas_class;
     class_addmethod(canvas_class,(t_method)canvas_else,         gensym("else")         ,A_GIMME,0);
     class_addmethod(canvas_class,(t_method)canvas_tolast,       gensym("last")         ,A_GIMME,0);
+    class_addmethod(canvas_class,(t_method)canvas_iemguis,      gensym("put"),          A_SYMBOL,0);
+//    canvas_startmotion(glist_getcanvas(gl));

More information about the Gridflow-cvs mailing list