Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10522
Modified Files: Tag: devel_0_38 u_main.tk Log Message: reverting to old help menu
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.4.4.10 retrieving revision 1.4.4.11 diff -C2 -d -r1.4.4.10 -r1.4.4.11 *** u_main.tk 11 May 2005 20:03:16 -0000 1.4.4.10 --- u_main.tk 28 Jun 2005 13:20:34 -0000 1.4.4.11 *************** *** 508,535 ****
# the "Help" menu - if {$pd_nt != 2} { - # a menu on the main menubar named "$whatever.help" while be treated - # as a special menu with specific behaviors on different platforms. - # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm $mbar.help add command -label {About Pd} \ -command {menu_doc_open doc/1.manual 1.introduction.txt} $mbar.help add command -label {Pure Documentation...} \ -command {menu_documentation} - # add menu items for each section instead of using Pd patches - $mbar.help add separator - set helpmenuname help - } else { - # Apple doesn't allow cascading menus in their Help so I had to call this - # one "docs" hans@at.or.at - set helpmenuname docs - }
- $mbar.$helpmenuname add command -label {1 manual...} \ - -command {menu_doc_open doc/1.manual index.htm} - doc_submenu $mbar.$helpmenuname 2.control.examples - doc_submenu $mbar.$helpmenuname 3.audio.examples - doc_submenu $mbar.$helpmenuname 4.fft.examples - doc_submenu $mbar.$helpmenuname 5.reference - doc_submenu $mbar.$helpmenuname 6.externs }
--- 508,516 ---- *************** *** 1087,1103 ****
# the help menu - - # a menu on the main menubar named "$whatever.help" while be treated - # as a special menu with specific behaviors on different platforms. - # See SPECIAL MENUS IN MENUBARS http://www.tcl.tk/man/tcl8.4/TkCmd/menu.htm - if {$pd_nt != 2} { menu $name.m.help -tearoff $pd_tearoff $name.m add cascade -label Help -menu $name.m.help - } else { - # Apple doesn't allow cascading menus in their Help - # so I had to call this one "docs". hans@at.or.at - menu $name.m.docs -tearoff $pd_tearoff - $name.m add cascade -label Help -menu $name.m.docs - }
menu_addstd $name.m --- 1068,1073 ----