--- a/XWorkstation.st	Wed Feb 26 12:34:17 2020 +0100
+++ b/XWorkstation.st	Wed Feb 26 14:26:01 2020 +0100
@@ -10223,6 +10223,16 @@
     "
 !
 
+queryUsableExtent
+    ^ self queryWidth @ self queryHeight.
+
+    "
+     Screen current queryUsableExtent
+    "
+
+    "Created: / 26-02-2020 / 12:00:19 / Stefan Vogel"
+!
+
 queryWhitePixel
 %{  /* NOCONTEXT */