--- a/SimpleView.st	Wed Nov 20 16:01:23 2019 +0100
+++ b/SimpleView.st	Wed Nov 20 16:02:14 2019 +0100
@@ -9702,6 +9702,18 @@
     "Created: 5.6.1996 / 01:05:06 / cg"
 !
 
+monitorDeviceName
+    "attention can be nil if failed or if not windows"
+
+    "
+        Transcript topView monitorDeviceName
+    "
+
+    ^ Screen current monitorDeviceNameForView:self id
+
+    "Created: / 20-11-2019 / 15:58:30 / Stefan Reise"
+!
+
 originChangedFlag
     "/ ^ originChangedFlag == true
     ^ flagBits bitTest:FlagOriginChanged