[PD-cvs] pd/src u_main.tk,1.4.4.7,1.4.4.8

[Tim Blechmann]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19186

Modified Files:
      Tag: devel_0_38
	u_main.tk 
Log Message:
runtime check for doc menu


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.4.4.7
retrieving revision 1.4.4.8
diff -C2 -d -r1.4.4.7 -r1.4.4.8
*** u_main.tk	21 Feb 2005 09:19:52 -0000	1.4.4.7
--- u_main.tk	6 May 2005 11:49:09 -0000	1.4.4.8
***************
*** 431,444 ****
  
  proc doc_submenu {helpmenu subdir} {
! 	 global help_top_directory pd_tearoff
! 
! 	 set menudir $help_top_directory/$subdir
! 
      regsub -all "\\\." $subdir "" submenu
! 
! 	 menu $helpmenu.$submenu -tearoff $pd_tearoff
      regsub -all "\\\." $subdir " " submenuname
! 	 $helpmenu add cascade -label $submenuname \
! 		  -menu $helpmenu.$submenu
  
  # use this glob pattern to exclude the supporting files
--- 431,448 ----
  
  proc doc_submenu {helpmenu subdir} {
! 	global help_top_directory pd_tearoff
! 	
! 	if { [lsearch  [glob -dir $help_top_directory * ] "../doc/$subdir" ] == -1} {
! 		return
! 	}
! 	
! 	set menudir $help_top_directory/$subdir
! 	
      regsub -all "\\\." $subdir "" submenu
! 	
! 	menu $helpmenu.$submenu -tearoff $pd_tearoff
      regsub -all "\\\." $subdir " " submenuname
! 	$helpmenu add cascade -label $submenuname \
! 		-menu $helpmenu.$submenu
  
  # use this glob pattern to exclude the supporting files