--- a/DeviceWorkstation.st	Wed Nov 20 14:59:55 2019 +0100
+++ b/DeviceWorkstation.st	Wed Nov 20 16:01:23 2019 +0100
@@ -7764,6 +7764,19 @@
     focusWindowGroup := aWindowGroupOrNil
 !
 
+monitorDeviceNameForView:aWindowId
+    "given a window ID, return its monitor device name or nil if failed"
+    "implemented for windows only"
+
+    "
+        Screen current monitorDeviceNameForView:Transcript topView id     
+    "          
+
+    ^ nil
+
+    "Created: / 20-11-2019 / 15:57:19 / Stefan Reise"
+!
+
 redrawAllWindows
     self allViewsDo:[:eachView |
 	(eachView shown and:[eachView isRootView not]) ifTrue:[