--- a/DeviceWorkstation.st	Fri Nov 22 10:44:15 2019 +0100
+++ b/DeviceWorkstation.st	Fri Nov 22 15:19:34 2019 +0100
@@ -988,7 +988,7 @@
 
 !DeviceWorkstation class methodsFor:'queries - monitor'!
 
-currentResolutionForMonitorNamed:aMonitorDeviceName
+currentMonitorResolutionByMonitorDeviceName:aMonitorDeviceName
     "ONLY WINDOWS redfines this method
      here just return my known extent 
 
@@ -1011,7 +1011,7 @@
 
     ^ Display extent
 
-    "Created: / 21-11-2019 / 10:10:26 / Stefan Reise"
+    "Created: / 22-11-2019 / 15:16:37 / Stefan Reise"
 !
 
 monitorDeviceNameForPoint:aPoint