The R Project SVN – R – Diff – /trunk/src/gnuwin32/devga.c

 		privategetpixel, 0, fp) ;
     gsetcliprect(xd->bm, r);
     fclose(fp);
+}
+#include "Startup.h"
+extern UImode CharacterMode;
 SEXP do_bringtotop(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     int dev;
     DevDesc *dd;
     gadesc *xd;
     checkArity(op, args);
     dev = asInteger(CAR(args));
+    if(dev == -1) { /* console */
+	if(CharacterMode == RGui) BringToTop(RConsole);
+    } else {
-    if(dev < 1 || dev > NumDevices() || dev == NA_INTEGER)
+	if(dev < 1 || dev > NumDevices() || dev == NA_INTEGER)
-	errorcall(call, "invalid value of `which'");
+	    errorcall(call, "invalid value of `which'");
-    dd = GetDevice(dev - 1);
+	dd = GetDevice(dev - 1);
-    if(!dd) errorcall(call, "invalid device");
+	if(!dd) errorcall(call, "invalid device");
-    xd = (gadesc *) dd->deviceSpecific;
+	xd = (gadesc *) dd->deviceSpecific;
-    if(!xd) errorcall(call, "invalid device");
+	if(!xd) errorcall(call, "invalid device");
-    BringToTop(xd->gawin);
+	BringToTop(xd->gawin);
+    }
     return R_NilValue;
+}

The R Project SVN R