[PD-cvs] pd/src u_main.tk,1.17.2.13,1.17.2.14

[Hans-Christoph Steiner]

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

Modified Files:
      Tag: branch-v0-39-2-extended
	u_main.tk 
Log Message:
and one last little clean-up...

Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.13
retrieving revision 1.17.2.14
diff -C2 -d -r1.17.2.13 -r1.17.2.14
*** u_main.tk	19 May 2007 05:32:06 -0000	1.17.2.13
--- u_main.tk	19 May 2007 05:35:15 -0000	1.17.2.14
***************
*** 14,23 ****
  # set pd_nt (bad name) 0 for unix, 1 for microsoft, and 2 for Mac OSX.
  if { $tcl_platform(platform) == "windows" }  {
!          set pd_nt 1
      font create menuFont -family Tahoma -size 11
  } elseif { $tcl_platform(os) == "Darwin" } {  
!          set pd_nt 2
  } else { 
!          set pd_nt 0
  }        
  
--- 14,26 ----
  # set pd_nt (bad name) 0 for unix, 1 for microsoft, and 2 for Mac OSX.
  if { $tcl_platform(platform) == "windows" }  {
!     set pd_nt 1
! 	 set defaultFontFamily {Bitstream Vera Sans Mono}
      font create menuFont -family Tahoma -size 11
  } elseif { $tcl_platform(os) == "Darwin" } {  
!     set pd_nt 2
! 	 set defaultFontFamily Monaco
  } else { 
!     set pd_nt 0
! 	 set defaultFontFamily {Bitstream Vera Sans Mono}
  }        
  
***************
*** 28,39 ****
  tk scaling 1
  
- if { $tcl_platform(os) == "Darwin" } {  
- 	 # Mac OS X
- 	 set defaultFontFamily Monaco
- } else {
- 	 # all other platforms
- 	 set defaultFontFamily {Bitstream Vera Sans Mono}
- }
- 
  # this font is for the Pd Window console text
  font create consoleFont -family $defaultFontFamily -size 12 -weight normal
--- 31,34 ----