--- a/DeviceWorkstation.st	Sun Nov 24 10:24:39 2019 +0100
+++ b/DeviceWorkstation.st	Mon Nov 25 10:04:06 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -990,32 +988,6 @@
 
 !DeviceWorkstation class methodsFor:'queries - monitor'!
 
-currentMonitorResolutionByMonitorDeviceName:aMonitorDeviceName
-    "ONLY WINDOWS redfines this method
-     here just return my known extent 
-
-     this is the current resolution of the display,
-     without any effect of scaling
-
-     for e.g.
-        real current display resolution -> 1080p
-        scaling 150%
-        virtual display resolution -> 720p
-
-        real current display resolution -> 1080p
-        scaling 100%
-        virtual display resolution -> 1080p"         
-
-    "
-        self currentResolutionForMonitorNamed:'\\.\DISPLAY1'     
-        self currentResolutionForMonitorNamed:'\\.\DISPLAY2'     
-    "    
-
-    ^ Display extent
-
-    "Created: / 22-11-2019 / 15:16:37 / Stefan Reise"
-!
-
 monitorDeviceNameForPoint:aPoint
     "given a point, return its monitor device name or nil if failed"
     "implemented for windows only"