On Oct 8, 2012, at 11:10 AM, Milan Bouchet-Valat wrote:
> 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
>
> .Tcl("font create test")
<Tcl> test
> tkfont.actual("test") # Wrong
<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman
-underline 0 -overstrike 0
> tkfont.actual("TkDefaultFont") # OK
<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman
-underline 0 -overstrike 0
> tkfont.actual("systemSystemFont) # Wrong
(Actually there was a trailing "+" sign aft the last one because of amissing
quote.
> tkfont.actual("systemSystemFont") # Wrong
<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman
-underline 0 -overstrike 0
I don't know if I need to update to the current Rcmdr, since this was earlier
done without it being loaded. But I did and then here goes:
> require(Rcmdr)> library(tcltk)
> .Tcl("font create test")
Error in structure(.External("dotTcl", ..., PACKAGE = "tcltk"), class =
"tclObj") :
[tcl] named font "test" already exists.
> tkfont.actual("test") # Wrong
<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman
-underline 0 -overstrike 0
> tkfont.actual("TkDefaultFont") # OK
<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman
-underline 0 -overstrike 0
> tkfont.actual("systemSystemFont") # Wrong
<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman
-underline 0 -overstrike 0
I see a "Script Window and an Output Window but admit considerable difficulty
with its very non-Mac-ish interface conventions (no cut and paste, unclear what
the submit button requires for proper operation);
I seem to be getting the same font being identified when I run these tests from
the "Script Window" but the Output Window was not allowing me to copy to the
Clipboard in the various efforts I have made. This is the output of the Save
Output as ... pulldown menu:
> tkfont.actual("test")
<Tcl> -family {Bitstream Vera Sans} -size 12 -weight normal -slant roman
-underline 0 -overstrike 0
> tkfont.actual("TkDefaultFont")
<Tcl> -family {Bitstream Vera Sans} -size -12 -weight normal -slant roman
-underline 0 -overstrike 0
--
David Winsemius, MD
Alameda, CA, USA
_______________________________________________
R-SIG-Mac mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-sig-mac
