Image.st
changeset 8879 002477324b37
parent 8869 11b97ffd3d3b
child 8882 478de7f76a1a
--- a/Image.st	Fri Nov 22 10:43:40 2019 +0100
+++ b/Image.st	Fri Nov 22 10:44:15 2019 +0100
@@ -2461,7 +2461,11 @@
     |display bounds|
 
     display := Screen current.
-    bounds := 0@0 corner:Screen currentDisplayResolution.
+
+    bounds := 0@0 
+        corner:(Screen 
+            currentResolutionForMonitorNamed:(Screen 
+                monitorDeviceNameForPoint:0@0)). "/ use the center monitor
 
     OperatingSystem isOSXlike ifTrue:[
         "/ sigh: XQuartz does not include the dock
@@ -2478,7 +2482,7 @@
     "
 
     "Modified: / 06-03-2017 / 14:48:42 / cg"
-    "Modified: / 15-11-2019 / 10:45:03 / Stefan Reise"
+    "Modified (comment): / 21-11-2019 / 17:49:01 / Stefan Reise"
 !
 
 fromScreen:aRectangle
@@ -16680,7 +16684,10 @@
      get the pixels
     "
     [
-        self from:rootView in:(Screen transformVirtualDisplayRectangleToRootDisplayRectangle:aRectangle).
+        self 
+            from:rootView 
+            in:(Screen 
+                convertVirtualResolutionRectangleToCurrentResolutionRectangle:aRectangle).
     ] ensure:[
         doGrab ifTrue:[
             aDevice ungrabPointer.
@@ -16695,7 +16702,7 @@
      Image fromScreen:((100@100) corner:(200@200)) on:Display grab:true
     "
 
-    "Modified: / 15-11-2019 / 11:07:05 / Stefan Reise"
+    "Modified (format): / 22-11-2019 / 10:10:57 / Stefan Reise"
 !
 
 photometricFromScreen:aDevice