--- a/DeviceWorkstation.st	Wed Feb 26 11:43:20 2020 +0100
+++ b/DeviceWorkstation.st	Wed Feb 26 12:01:53 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1659,9 +1661,14 @@
 queryUsableExtent
     "answer the extent of all monitors"
 
-    ^ (Screen current monitorInfos 
-        collect:[:each| each bounds])
-        fold:[:firstRect :nextRect| firstRect merge:nextRect]
+    ^ self monitorBounds
+        fold:[:firstRect :nextRect| firstRect merge:nextRect].
+
+    "
+        Screen current queryUsableExtent
+    "
+
+    "Modified: / 26-02-2020 / 11:57:29 / Stefan Vogel"
 !
 
 rootView
@@ -2985,6 +2992,19 @@
     resolutionHor := aNumber
 !
 
+monitorBounds
+    "answer an Array with the bounds of all available available monitors.
+     The first monitor returned is the primary monitor."
+
+    ^ { self bounds }
+
+    "
+        Screen current monitorBounds
+    "
+
+    "Created: / 26-02-2020 / 11:51:28 / Stefan Vogel"
+!
+
 monitorBoundsAt:aPoint
     "to be redefined for display systems which support MULTI SCREEN"