[GR-15037] Avoid using GraphicsEnvironment in when using remote grid device.

PullRequest: fastr/1997

Author: steve-s

com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/fastrGrid/device/awt/Graphics2DDevice.java

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2017, 2018, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2017, 2019, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -44,6 +44,7 @@
 import com.oracle.truffle.r.library.fastrGrid.device.DrawingContext.GridLineJoin;
 import com.oracle.truffle.r.library.fastrGrid.device.GridColor;
 import com.oracle.truffle.r.library.fastrGrid.device.GridDevice;
+import com.oracle.truffle.r.runtime.FastRConfig;
 import com.oracle.truffle.r.runtime.RInternalError;
 
 /**
@@ -59,7 +60,7 @@ public class Graphics2DDevice implements GridDevice {
     // may wish to apply his/her own transformations to the graphics object and we should not
     // interfere with these. In cases we do use transformation, we make sure to set back the
     // original one after we're done.
-    static final double AWT_POINTS_IN_INCH = GraphicsEnvironment.isHeadless() ? 72. : Toolkit.getDefaultToolkit().getScreenResolution();
+    static final double AWT_POINTS_IN_INCH = FastRConfig.UseRemoteGridAwtDevice || GraphicsEnvironment.isHeadless() ? 72. : Toolkit.getDefaultToolkit().getScreenResolution();
 
     private static final BasicStroke blankStroke = new BasicStroke(0f);
 

com.oracle.truffle.r.library/src/com/oracle/truffle/r/library/fastrGrid/grDevices/InitWindowedDevice.java

@@ -75,6 +75,9 @@ protected Object call(RArgsValuesAndNames args) {
         // check if we got custom Graphics2D object as 3rd parameter
         boolean isFastRDevice = args.getArgument(0).equals(".FASTR.AWT");
         if (isFastRDevice && args.getLength() > 3) {
+            if (FastRConfig.UseRemoteGridAwtDevice) {
+                throw error(Message.GENERIC, "Using custom Graphics2D object is not supported on the remote grid device.");
+            }
             Object arg3 = args.getArgument(3);
             boolean isForeignTruffleObj = RRuntime.isForeignObject(arg3);
             TruffleLanguage.Env env = RContext.getInstance().getEnv();