[PD-cvs] pd/src u_main.tk,1.4.4.10,1.4.4.11

[Tim Blechmann]

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 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 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 ----