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

[Hans-Christoph Steiner]

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

Modified Files:
      Tag: branch-v0-39-2-extended
	u_main.tk 
Log Message:
oops, now I actually set Monaco as default on Mac OS X

Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.12
retrieving revision 1.17.2.13
diff -C2 -d -r1.17.2.12 -r1.17.2.13
*** u_main.tk	19 May 2007 05:29:34 -0000	1.17.2.12
--- u_main.tk	19 May 2007 05:32:06 -0000	1.17.2.13
***************
*** 30,45 ****
  if { $tcl_platform(os) == "Darwin" } {  
  	 # Mac OS X
! #	 set defaultFontFamily Monaco
! 	 set defaultFontFamily {Bitstream Vera Sans Mono}
  } 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
- 
  # this font is for text in Pd windows
  font create textFont -family {Times} -size 14 -weight normal
- 
  # for text in Properties Panels and other panes
  font create highlightFont -family $defaultFontFamily -size 14 -weight bold
--- 30,43 ----
  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
  # this font is for text in Pd windows
  font create textFont -family {Times} -size 14 -weight normal
  # for text in Properties Panels and other panes
  font create highlightFont -family $defaultFontFamily -size 14 -weight bold