The R Project SVN R

Rev

Rev 88803 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88803 Rev 88805
Line 1802... Line 1802...
1802 
    char* result = xd->basefontfamily;
 1802 
    char* result = xd->basefontfamily;
1803 
    PROTECT_INDEX xpi;
 1803 
    PROTECT_INDEX xpi;
1804 
 
 1804 
 
1805 
    PROTECT(graphicsNS = R_FindNamespace(ScalarString(mkChar("grDevices"))));
 1805 
    PROTECT(graphicsNS = R_FindNamespace(ScalarString(mkChar("grDevices"))));
1806 
    PROTECT_WITH_INDEX(x11env = findVar(install(".X11env"), graphicsNS), &xpi);
 1806 
    PROTECT_WITH_INDEX(x11env = findVar(install(".X11env"), graphicsNS), &xpi);
1807 
    if(TYPEOF(x11env) == PROMSXP)
 1807 
    if (TYPEOF(x11env) == PROMSXP) {
- 
 
 1808 
        if (NoDevices()) {
1808 
	REPROTECT(x11env = eval(x11env, graphicsNS), xpi);
 1809 
            REPROTECT(x11env = eval(x11env, graphicsNS), xpi);
- 
 
 1810 
        } else {
- 
 
 1811 
            REPROTECT(x11env = Rf_eval_with_gd(x11env, graphicsNS,
- 
 
 1812 
                                               GEcurrentDevice()), xpi);
- 
 
 1813 
        }
- 
 
 1814 
    }
1809 
    PROTECT(fontdb = findVar(install(".X11.Fonts"), x11env));
 1815 
    PROTECT(fontdb = findVar(install(".X11.Fonts"), x11env));
1810 
    PROTECT(fontnames = getAttrib(fontdb, R_NamesSymbol));
 1816 
    PROTECT(fontnames = getAttrib(fontdb, R_NamesSymbol));
1811 
    nfonts = LENGTH(fontdb);
 1817 
    nfonts = LENGTH(fontdb);
1812 
    if (family[0]) {
 1818 
    if (family[0]) {
1813 
	Rboolean found = FALSE;
 1819 
	Rboolean found = FALSE;