#FEATURE by stefan
authorStefan Vogel <sv@exept.de>
Wed, 26 Feb 2020 14:26:01 +0100
changeset 9008 b9e00f16b5c6
parent 9007 c891324bc5ec
child 9009 1b4dfccafd87
#FEATURE by stefan class: XWorkstation added: #queryUsableExtent
XWorkstation.st
--- 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 */