--- 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:[