UISpecificationTool.st
changeset 2545 cd5d45739973
parent 2524 759b4b908fcb
child 2631 8d74338aa3bd
--- 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...