--- a/AppModel.st	Fri Jul 31 19:41:08 1998 +0200
+++ b/AppModel.st	Fri Jul 31 23:03:36 1998 +0200
@@ -763,7 +763,7 @@
 !
 
 helpTextFor:aComponent
-    "activeHelp interface: return some help text for a component"
+    "activeHelp interface: return some help text for a widget component"
 
     |key cls|
 
@@ -779,11 +779,14 @@
     masterApplication notNil ifTrue:[
         ^ masterApplication helpTextFor:aComponent
     ].
-  ^ nil
+    ^ nil
+
+    "Modified: / 31.7.1998 / 23:03:10 / cg"
 !
 
 helpTextForKey:aKey
-    "activeHelp interface: return some help text for a key"
+    "activeHelp interface: return some help text for a key
+     (from my helpSpec); return a language variant (if available)"
 
     |cls helpText|
 
@@ -795,7 +798,14 @@
     (masterApplication notNil and:[helpText isNil]) ifTrue:[
         helpText := masterApplication helpTextForKey:aKey
     ].
-  ^ helpText
+
+    "/ translate.
+    resources notNil ifTrue:[
+        ^ resources string:helpText
+    ].
+    ^ helpText
+
+    "Modified: / 31.7.1998 / 23:01:59 / cg"
 !
 
 labelFor:aKey
@@ -1904,6 +1914,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.92 1998-07-31 17:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.93 1998-07-31 21:03:36 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Fri Jul 31 19:41:08 1998 +0200
+++ b/ApplicationModel.st	Fri Jul 31 23:03:36 1998 +0200
@@ -763,7 +763,7 @@
 !
 
 helpTextFor:aComponent
-    "activeHelp interface: return some help text for a component"
+    "activeHelp interface: return some help text for a widget component"
 
     |key cls|
 
@@ -779,11 +779,14 @@
     masterApplication notNil ifTrue:[
         ^ masterApplication helpTextFor:aComponent
     ].
-  ^ nil
+    ^ nil
+
+    "Modified: / 31.7.1998 / 23:03:10 / cg"
 !
 
 helpTextForKey:aKey
-    "activeHelp interface: return some help text for a key"
+    "activeHelp interface: return some help text for a key
+     (from my helpSpec); return a language variant (if available)"
 
     |cls helpText|
 
@@ -795,7 +798,14 @@
     (masterApplication notNil and:[helpText isNil]) ifTrue:[
         helpText := masterApplication helpTextForKey:aKey
     ].
-  ^ helpText
+
+    "/ translate.
+    resources notNil ifTrue:[
+        ^ resources string:helpText
+    ].
+    ^ helpText
+
+    "Modified: / 31.7.1998 / 23:01:59 / cg"
 !
 
 labelFor:aKey
@@ -1904,6 +1914,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.92 1998-07-31 17:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.93 1998-07-31 21:03:36 cg Exp $'
 ! !
 ApplicationModel initialize!