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

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sat Feb 6 00:05:31 EST 2010


Author: matju
Date: Sat Feb  6 00:05:31 2010
New Revision: 4975

Log:
add "GridFlow Examples" item in Help menu

Modified:
    trunk/src/gridflow.cxx

Modified: trunk/src/gridflow.cxx
==============================================================================
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Sat Feb  6 00:05:31 2010
@@ -1028,10 +1028,13 @@
 	        "proc pdtk_text_set {a b e        } {pdtk_text_sept $a $b       [encoding convertfrom $e]      }\n");
 #endif
         sys_vgui("set gfdir {%s}\n",dirresult);
+	sys_gui("proc gf_menu_open {} {\n"
+		"set z $::pd_opendir; set ::pd_opendir $::gfdir/examples; menu_open; 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 Index} -command {pd pd open index.pd $::gfdir/doc \\;}\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"



More information about the Gridflow-cvs mailing list