#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Wed, 13 Feb 2019 13:06:12 +0100
changeset 4223 04ef043b7f2d
parent 4222 0bf60f8571b7
child 4224 8ce4f91fb3ef
#BUGFIX by cg class: ApplicationModel changed: #helpTextForKey:
ApplicationModel.st
--- a/ApplicationModel.st	Fri Feb 08 04:32:24 2019 +0000
+++ b/ApplicationModel.st	Wed Feb 13 13:06:12 2019 +0100
@@ -2720,7 +2720,7 @@
     ].
 
     "/ special: if ctrl is pressed, show the helpkey 
-    (helpText notNil and:[self window device ctrlDown]) ifTrue:[
+    (helpText notNil and:[self device ctrlDown]) ifTrue:[
         ^ 'Helpkey: ',aKey printString.
     ].
 
@@ -2737,8 +2737,7 @@
 
     "Modified: / 27-01-2012 / 14:33:54 / cg"
     "Modified (comment): / 09-01-2018 / 17:36:30 / stefan"
-    "Modified: / 07-09-2018 / 16:36:11 / Claus Gittinger"
-    "Modified (format): / 07-02-2019 / 20:55:33 / Claus Gittinger"
+    "Modified: / 13-02-2019 / 12:00:19 / Claus Gittinger"
 !
 
 helpTextForKey:aKey row:aRowNr