# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1242916533 -7200
# Node ID cd5d45739973d86566a1b2d50a93e89e405143f5
# Parent  62e390e651a3b66d9946d0e089b406836f08682f
more flexible flyByHelpText redefinition

diff -r 62e390e651a3 -r cd5d45739973 UISpecificationTool.st
--- a/UISpecificationTool.st	Thu May 21 16:35:09 2009 +0200
+++ b/UISpecificationTool.st	Thu May 21 16:35:33 2009 +0200
@@ -354,10 +354,13 @@
     masterApplication notNil ifTrue:[
         helpText := masterApplication basicFlyByHelpTextForKey:aKey.
         helpText notNil ifTrue:[^ helpText ].
+
+        "/ then, ask the master about the spec
+        helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey.
+    ] ifFalse:[
+        "/ then, ask the spec
+        helpText := (specification helpSpec) at:aKey ifAbsent:nil.
     ].
-
-    "/ then, ask the spec
-    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
     helpText notNil ifTrue:[^ helpText ].
 
     "/ finally, ask myself...
@@ -374,10 +377,13 @@
     masterApplication notNil ifTrue:[
         helpText := masterApplication basicHelpTextForKey:aKey.
         helpText notNil ifTrue:[^ helpText ].
+
+        "/ then, ask the master about the spec
+        helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey.
+    ] ifFalse:[
+        "/ then, ask the spec
+        helpText := (specification helpSpec) at:aKey ifAbsent:nil.
     ].
-
-    "/ then, ask the spec
-    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
     helpText notNil ifTrue:[^ helpText ].
 
     "/ finally, ask myself...