The R Project SVN R

Rev

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

Rev 14560 Rev 14561
Line 141... Line 141...
141 
static void eventloop()
 141 
static void eventloop()
142 
{
 142 
{
143 
    while (R_de_up) R_ProcessEvents();
 143 
    while (R_de_up) R_ProcessEvents();
144 
}
 144 
}
145 
 
 145 
 
- 
 
 146 
static void de_closewin_cend(void *data)
- 
 
 147 
{
- 
 
 148 
    de_closewin();
- 
 
 149 
}
- 
 
 150 
 
146 
SEXP do_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
 151 
SEXP do_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
147 
{
 152 
{
148 
    SEXP tvec2, tvec, colmodes, indata;
 153 
    SEXP tvec2, tvec, colmodes, indata;
149 
    SEXPTYPE type;
 154 
    SEXPTYPE type;
150 
    int i, j,len, nprotect, tmp;
 155 
    int i, j,len, nprotect, tmp;
Line 222... Line 227...
222 
	errorcall(call, "invalid device");
 227 
	errorcall(call, "invalid device");
223 
 
 228 
 
224 
    /* set up a context which will close the window if there is an error */
 229 
    /* set up a context which will close the window if there is an error */
225 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_NilValue, R_NilValue,
 230 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_NilValue, R_NilValue,
226 
		 R_NilValue);
 231 
		 R_NilValue);
227 
    cntxt.cend = &de_closewin;
 232 
    cntxt.cend = &de_closewin_cend;
- 
 
 233 
    cntxt.cenddata = NULL;
228 
 
 234 
 
229 
    highlightrect();
 235 
    highlightrect();
230 
 
 236 
 
231 
    eventloop();
 237 
    eventloop();
232 
 
 238