The R Project SVN R

Rev

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

Rev 75867 Rev 76454
Line 2818... Line 2818...
2818 
    Rf_setX11DeviceData(dd, gamma_fac, xd);
 2818 
    Rf_setX11DeviceData(dd, gamma_fac, xd);
2819 
    xd->fill = 0xffffffff; /* this is needed to ensure that the
 2819 
    xd->fill = 0xffffffff; /* this is needed to ensure that the
2820 
			      first newpage does set whitecolor
 2820 
			      first newpage does set whitecolor
2821 
			      if par("bg") is not transparent */
 2821 
			      if par("bg") is not transparent */
2822 
 
 2822 
 
2823 
#if BUG
 - 
 
2824 
    R_ProcessX11Events((void*) NULL);
 - 
 
2825 
#endif
 - 
 
2826 
 
 - 
 
2827 
    return TRUE;
 2823 
    return TRUE;
2828 
}
 2824 
}
2829 
 
 2825 
 
2830 
/**
 2826 
/**
2831 
  This fills the general device structure (dd) with the X-specific
 2827 
  This fills the general device structure (dd) with the X-specific
Line 3124... Line 3120...
3124 
	    free(dev);
 3120 
	    free(dev);
3125 
	    errorcall(call, _("unable to start device %s"), devname);
 3121 
	    errorcall(call, _("unable to start device %s"), devname);
3126 
	}
 3122 
	}
3127 
	dd = GEcreateDevDesc(dev);
 3123 
	dd = GEcreateDevDesc(dev);
3128 
	GEaddDevice2(dd, devname);
 3124 
	GEaddDevice2(dd, devname);
- 
 
 3125 
 
- 
 
 3126 
	/* Requires dd to be set up first. */
- 
 
 3127 
	R_ProcessX11Events((void*) NULL);
- 
 
 3128 
 
3129 
    } END_SUSPEND_INTERRUPTS;
 3129 
    } END_SUSPEND_INTERRUPTS;
3130 
}
 3130 
}
3131 
 
 3131 
 
3132 
static SEXP in_do_X11(SEXP call, SEXP op, SEXP args, SEXP env)
 3132 
static SEXP in_do_X11(SEXP call, SEXP op, SEXP args, SEXP env)
3133 
{
 3133 
{