--- a/ApplicationModel.st	Fri Jun 15 02:48:47 2018 +0200
+++ b/ApplicationModel.st	Fri Jun 15 11:16:09 2018 +0200
@@ -2678,7 +2678,7 @@
         ^ helpText value.
     ].
 
-    (helpText notNil and:[self window sensor ctrlDown]) ifTrue:[
+    (helpText notNil and:[self window device ctrlDown]) ifTrue:[
         ^ 'Helpkey: ',aKey printString.
     ].
 
@@ -2695,7 +2695,7 @@
 
     "Modified: / 27-01-2012 / 14:33:54 / cg"
     "Modified (comment): / 09-01-2018 / 17:36:30 / stefan"
-    "Modified: / 08-06-2018 / 13:02:01 / Claus Gittinger"
+    "Modified: / 15-06-2018 / 11:13:37 / Claus Gittinger"
 !
 
 helpTextForKey:aKey row:aRowNr