Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more flexible flyByHelpText redefinition
authorClaus Gittinger <cg@exept.de>
Thu, 21 May 2009 16:35:33 +0200
changeset 2545 cd5d45739973
parent 2544 62e390e651a3
child 2546 b69247f503b8
more flexible flyByHelpText redefinition
UISpecificationTool.st file | annotate | diff | comparison | revisions 
--- 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...
hg/stx-libtool2