#FEATURE by cg
class: ApplicationModel
changed: #helpTextForKey: (send #device instead of #sensor)
--- 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