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

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Wed Jul 28 20:37:15 EDT 2010


Author: matju
Date: Wed Jul 28 20:37:13 2010
New Revision: 5830

Log:
attempt to add items to the Put Menu...

Modified:
    trunk/src/gridflow.cxx

Modified: trunk/src/gridflow.cxx
==============================================================================
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Wed Jul 28 20:37:13 2010
@@ -1113,15 +1113,21 @@
 		"if {[catch {menu_open}]} {menu_open $parent};"
 		"set ::pd_opendir $z}\n");
 	sys_gui("proc gridflow_add_to_help {menu} {\n"
-		   "$menu add separator\n"
-		   "$menu add command -label {GridFlow About}      -command {pd pd open about.pd $::gfdir/doc \\;}\n"
-		   "$menu add command -label {GridFlow Help Index} -command {pd pd open index.pd $::gfdir/doc \\;}\n"
-		   "$menu add command -label {GridFlow Examples}   -command {gf_menu_open .}\n"
-		 "}\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}}\n");
+		  "$menu add separator\n"
+		  "$menu add command -label {GridFlow About}      -command {pd pd open about.pd $::gfdir/doc \\;}\n"
+		  "$menu add command -label {GridFlow Help Index} -command {pd pd open index.pd $::gfdir/doc \\;}\n"
+		  "$menu add command -label {GridFlow Examples}   -command {gf_menu_open .}\n"
+		"}\n"
+		"proc gridflow_add_to_put {menu} {\n"
+ 		  "$menu add separator\n"
+		  "$menu add command -label {Display} -command [list pd [regsub .m.put $menu \"\"] obj %X %Y display\\;]"
+		"}\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"
+		"}}\n");
 	delete[] dirresult;
 	delete[] dirname;
     } catch (Barf &oozy) {oozy.error(0,-1,(char *)0);}



More information about the Gridflow-cvs mailing list