--- a/ApplicationModel.st	Thu May 30 09:43:30 2019 +0200
+++ b/ApplicationModel.st	Thu Jun 06 15:28:04 2019 +0200
@@ -3761,6 +3761,17 @@
 
 !ApplicationModel methodsFor:'queries'!
 
+ctrlDown
+    "answer true if the control key is pressed"
+
+    |activeGroup|
+
+    activeGroup := WindowGroup activeGroup.
+    ^ activeGroup notNil and:[activeGroup sensor ctrlDown].
+
+    "Created: / 06-06-2019 / 15:24:51 / Stefan Vogel"
+!
+
 defaultWindowExtent
     "return my default window extent or nil.
      Return nil if the defaul extent should be computed by other means.