--- a/DeviceWorkstation.st	Wed Feb 26 09:09:40 2020 +0100
+++ b/DeviceWorkstation.st	Wed Feb 26 11:43:20 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1658,6 +1656,14 @@
     ^ false
 !
 
+queryUsableExtent
+    "answer the extent of all monitors"
+
+    ^ (Screen current monitorInfos 
+        collect:[:each| each bounds])
+        fold:[:firstRect :nextRect| firstRect merge:nextRect]
+!
+
 rootView
     "return the rootView (i.e. the background window) on the receiver screen.
      It is not guaranteed, that a particular display device supports this."