# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1007771871 -3600
# Node ID e906245e5171d99b06624b8f2378f5fece239a40
# Parent  364eabac0aecd17cf89b59349b3d193f2a43f840
flyByHelp

diff -r 364eabac0aec -r e906245e5171 ApplicationModel.st
--- a/ApplicationModel.st	Sat Dec 08 01:36:32 2001 +0100
+++ b/ApplicationModel.st	Sat Dec 08 01:37:51 2001 +0100
@@ -155,6 +155,12 @@
 
 !ApplicationModel class methodsFor:'active help'!
 
+flyByHelpSpec
+    "default is: no help-spec (should be redefined by concrete class if help is wanted)."
+
+    ^ IdentityDictionary new.
+!
+
 helpSpec
     "default is: no help-spec (should be redefined by concrete class if help is wanted)."
 
@@ -891,6 +897,55 @@
     "Modified: / 18.6.1998 / 20:33:36 / cg"
 !
 
+flyByHelpTextFor:aComponent
+    "activeHelp interface: return some short help text for a widget component"
+
+    |key cls|
+
+    builder notNil ifTrue:[
+        cls := self class.
+
+        (cls respondsTo:#flyByHelpSpec) ifTrue:[
+            (key := builder helpKeyFor:aComponent) notNil ifTrue:[
+                ^ self flyByHelpTextForKey:key
+            ]
+        ]
+    ].
+    masterApplication notNil ifTrue:[
+        ^ masterApplication flyByHelpTextFor:aComponent
+    ].
+    ^ nil
+
+    "Modified: / 31.7.1998 / 23:03:10 / cg"
+!
+
+flyByHelpTextForKey:aKey
+    "flyByHelp interface: return some short help text for a key
+     key is the symbol associated with some widget or menu item.
+     (from my flyByHelpSpec); return a language variant (if available)"
+
+    |cls helpText|
+
+    cls := self class.
+
+    (cls respondsTo:#flyByHelpSpec) ifTrue:[
+        helpText := (cls flyByHelpSpec) at:aKey ifAbsent:nil
+    ].
+    helpText isNil ifTrue:[
+        masterApplication notNil ifTrue:[
+            helpText := masterApplication flyByHelpTextForKey:aKey
+        ]
+    ].
+
+    "/ translate.
+    resources notNil ifTrue:[
+        ^ resources string:helpText
+    ].
+    ^ helpText
+
+    "Modified: / 4.2.2000 / 15:30:16 / cg"
+!
+
 helpTextFor:aComponent
     "activeHelp interface: return some help text for a widget component"
 
@@ -925,9 +980,12 @@
     (cls respondsTo:#helpSpec) ifTrue:[
         helpText := (cls helpSpec) at:aKey ifAbsent:nil
     ].
-    (masterApplication notNil and:[helpText isNil]) ifTrue:[
-        helpText := masterApplication helpTextForKey:aKey
+    helpText isNil ifTrue:[
+        masterApplication notNil ifTrue:[
+            helpText := masterApplication helpTextForKey:aKey
+        ].
     ].
+
     "/ translate.
     resources notNil ifTrue:[
         ^ resources string:helpText
@@ -2533,6 +2591,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.163 2001-11-19 08:04:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.164 2001-12-08 00:37:27 cg Exp $'
 ! !
 ApplicationModel initialize!
diff -r 364eabac0aec -r e906245e5171 ToolApplicationModel.st
--- a/ToolApplicationModel.st	Sat Dec 08 01:36:32 2001 +0100
+++ b/ToolApplicationModel.st	Sat Dec 08 01:37:51 2001 +0100
@@ -201,6 +201,14 @@
 
 !ToolApplicationModel class methodsFor:'help specs'!
 
+flyByHelpSpec
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+)
+!
+
 helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -1312,5 +1320,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.104 2001-11-15 22:09:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.105 2001-12-08 00:37:51 cg Exp $'
 ! !