#UI_ENHANCEMENT by cg
class: ApplicationModel
changed: #helpTextForKey:
if there is no translation, do not return the key untranslated
--- a/ApplicationModel.st Fri Jan 26 10:45:18 2018 +0100
+++ b/ApplicationModel.st Wed Jan 31 00:06:39 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -2653,6 +2655,10 @@
helpText isNil ifTrue:[
"there is no help text - resolve key from resources"
helpText := (self translateString:aKey) withCRs.
+ helpText = aKey ifTrue:[
+ "/ nothing came...
+ ^ nil
+ ].
].
^ helpText.
].