--- a/ApplicationModel.st Sun Jan 22 11:35:31 2012 +0100
+++ b/ApplicationModel.st Fri Jan 27 14:34:41 2012 +0100
@@ -2189,7 +2189,7 @@
!ApplicationModel methodsFor:'help texts'!
basicFlyByHelpTextForKey:aKey
- "flyByHelp interface: return some short help text for a key
+ "flyByHelp interface: return some short help text for a key.
key is the symbol associated with some widget or menu item.
Return the original (english) text; needs to be translated as per language"
@@ -2213,7 +2213,7 @@
].
^ helpText
- "Modified: / 22-12-2011 / 11:06:53 / cg"
+ "Modified: / 27-01-2012 / 14:30:20 / cg"
!
basicHelpTextForKey:aKey
@@ -2288,7 +2288,7 @@
"get the translation"
translatedHelpText := self translateString:helpText.
- translatedHelpText == helpText ifTrue:[
+ (helpText = aKey and:[ translatedHelpText = helpText ]) ifTrue:[
"there is no translation in the resources - maybe there is one for the key?"
translatedKey := self translateString:aKey.
translatedKey ~~ aKey ifTrue:[
@@ -2297,7 +2297,7 @@
].
^ translatedHelpText withCRs.
- "Modified: / 22-12-2011 / 10:47:39 / cg"
+ "Modified: / 27-01-2012 / 14:33:54 / cg"
!
flyByHelpTextForKey:aKey row:aRowNr
@@ -3929,11 +3929,11 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.327 2011-12-29 18:17:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.328 2012-01-27 13:34:41 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.327 2011-12-29 18:17:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.328 2012-01-27 13:34:41 cg Exp $'
! !
ApplicationModel initialize!