[R-SIG-Mac] Ugly default Tk font on Mac OS

[John Fox]

Dear Milan,

> -----Original Message-----
> From: Milan Bouchet-Valat [mailto:nalimilan at club.fr]
> Sent: Monday, October 08, 2012 2:11 PM
> To: David Winsemius
> Cc: John Fox; 'r-sig-mac'
> Subject: Re: [R-SIG-Mac] Ugly default Tk font on Mac OS
> 
> Le lundi 08 octobre 2012 à 10:54 -0700, David Winsemius a écrit :
> > Just as a point of reference. With a recently installed update to Snow
> > Leopard (yes, I'm way behind that adoption curve) and Rcmdr version
> > 1.8.4 ( I'm not a user and I see this is out-of-date) , I get:
> >
> > tkfont.actual("RcmdrDefaultFont")
> > <Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant
> roman -underline 0 -overstrike 0
> Interesting. Do you get the same if you run my small test?
> 
> library(tcltk)
> .Tcl("font create test")
> tkfont.actual("test") # Wrong
> tkfont.actual("TkDefaultFont") # OK
> tkfont.actual("systemSystemFont) # Wrong
> 
> Thanks!


For curiosity, I tried this on my Windows 7 machine:

> .Tcl("font create test")
<Tcl> test 

> tkfont.actual("test") # Wrong
<Tcl> -family Arial -size 12 -weight normal -slant roman -underline 0 -overstrike 0 

> tkfont.actual("TkDefaultFont") # OK
<Tcl> -family {Segoe UI} -size 9 -weight normal -slant roman -underline 0 -overstrike 0 

> tkfont.actual("systemSystemFont")
<Tcl> -family Arial -size 12 -weight normal -slant roman -underline 0 -overstrike 0

Note that 1 matches 3 but not 2.

Best,
 John