The R Project SVN R

Rev

Rev 64657 | Rev 67099 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 64657 Rev 65368
Line 374... Line 374...
374 
    }
 374 
    }
375 
 
 375 
 
376 
 
 376 
 
377 
    /* start up the window, more initializing in here */
 377 
    /* start up the window, more initializing in here */
378 
    if (initwin(DE, title))
 378 
    if (initwin(DE, title))
379 
	errorcall(call, "invalid device");
 379 
	errorcall(call, "unable to start data editor");
380 
 
 380 
 
381 
    /* set up a context which will close the window if there is an error */
 381 
    /* set up a context which will close the window if there is an error */
382 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
 382 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
383 
		 R_NilValue, R_NilValue);
 383 
		 R_NilValue, R_NilValue);
384 
    cntxt.cend = &closewin_cend;
 384 
    cntxt.cend = &closewin_cend;
Line 509... Line 509...
509 
    }
 509 
    }
510 
 
 510 
 
511 
 
 511 
 
512 
    /* start up the window, more initializing in here */
 512 
    /* start up the window, more initializing in here */
513 
    if (initwin(DE, CHAR(STRING_ELT(stitle, 0))))
 513 
    if (initwin(DE, CHAR(STRING_ELT(stitle, 0))))
514 
	errorcall(call, "invalid device");
 514 
	errorcall(call, "unable to start data viewer");
515 
 
 515 
 
516 
    /* set up a context which will close the window if there is an error */
 516 
    /* set up a context which will close the window if there is an error */
517 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
 517 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
518 
		 R_NilValue, R_NilValue);
 518 
		 R_NilValue, R_NilValue);
519 
    cntxt.cend = &dv_closewin_cend;
 519 
    cntxt.cend = &dv_closewin_cend;
Line 1941... Line 1941...
1941 
	    return TRUE; /* ERROR */
 1941 
	    return TRUE; /* ERROR */
1942 
	}
 1942 
	}
1943 
    } else {
 1943 
    } else {
1944 
	DE->font_info = XLoadQueryFont(iodisplay, font_name);
 1944 
	DE->font_info = XLoadQueryFont(iodisplay, font_name);
1945 
	if (DE->font_info == NULL) {
 1945 
	if (DE->font_info == NULL) {
1946 
	    warning("unable to losd font %s", font_name);
 1946 
	    warning("unable to load font %s", font_name);
1947 
	    return TRUE; /* ERROR */
 1947 
	    return TRUE; /* ERROR */
1948 
	}
 1948 
	}
1949 
    }
 1949 
    }
1950 
 
 1950 
 
1951 
    /* find out how wide the input boxes should be and set up the
 1951 
    /* find out how wide the input boxes should be and set up the