--- a/ApplicationModel.st	Tue May 14 11:54:59 2019 +0200
+++ b/ApplicationModel.st	Tue May 14 19:22:17 2019 +0200
@@ -1594,6 +1594,20 @@
     "Modified (comment): / 11-02-2017 / 11:46:37 / cg"
 !
 
+windowSensor
+    "return the applications windowSensor"
+
+    |windowGroup|
+
+    windowGroup := self windowGroup.
+    windowGroup isNil ifTrue:[
+        ^ nil.
+    ].
+    ^ windowGroup sensor.
+
+    "Created: / 14-05-2019 / 16:13:35 / Stefan Vogel"
+!
+
 windowTitle:aString
     builder windowTitle:aString
 ! !