#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 31 Jan 2018 00:06:39 +0100
changeset 4059 612726a08954
parent 4058 d1ad98047781
child 4060 9ddc9c4794f5
#UI_ENHANCEMENT by cg class: ApplicationModel changed: #helpTextForKey: if there is no translation, do not return the key untranslated
ApplicationModel.st
--- 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.
     ].