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