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