--- a/ApplicationModel.st	Mon Oct 29 16:29:49 2007 +0100
+++ b/ApplicationModel.st	Sat Nov 03 12:06:24 2007 +0100
@@ -1191,8 +1191,11 @@
     |helpText resourceArgs|
 
     helpText := self basicFlyByHelpTextForKey:aKey.
-
     (resources notNil and:[helpText notNil]) ifTrue:[
+        "/ kludge to allow for dynamic translation by the application itself.
+        helpText isBlock ifTrue:[
+            ^ helpText value
+        ].
         "/ translate.
         resourceArgs notNil ifTrue:[
             ^ resources stringWithCRs:helpText withArgs:resourceArgs
@@ -1201,7 +1204,7 @@
     ].
     ^ helpText
 
-    "Modified: / 21-07-2007 / 15:35:39 / cg"
+    "Modified: / 03-11-2007 / 12:04:14 / cg"
 !
 
 helpSpec
@@ -2948,7 +2951,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.235 2007-07-22 18:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.236 2007-11-03 11:06:24 cg Exp $'
 ! !
 
 ApplicationModel initialize!