--- a/UISpecificationTool.st	Wed May 13 18:40:04 2009 +0200
+++ b/UISpecificationTool.st	Wed May 13 19:18:29 2009 +0200
@@ -344,21 +344,44 @@
 
 !UISpecificationTool methodsFor:'help'!
 
+basicFlyByHelpTextForKey:aKey
+    "activeHelp interface: return some help text for a key.
+     Redefined to ask the current components Spec first."
+
+    |helpText|
+
+    "/ first, ask the master (a hook for expecco, to provide different help texts)
+    masterApplication notNil ifTrue:[
+        helpText := masterApplication basicFlyByHelpTextForKey:aKey.
+        helpText notNil ifTrue:[^ helpText ].
+    ].
+
+    "/ then, ask the spec
+    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
+    helpText notNil ifTrue:[^ helpText ].
+
+    "/ finally, ask myself...
+    ^ super basicFlyByHelpTextForKey:aKey.
+!
+
 basicHelpTextForKey:aKey
     "activeHelp interface: return some help text for a key.
      Redefined to ask the current components Spec first."
 
     |helpText|
 
-    "/ first, ask the spec
-    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
-"/ DEBUG:    helpText isNil ifTrue:[^ 'No help for key: ', aKey ].
+    "/ first, ask the master (a hook for expecco, to provide different help texts)
+    masterApplication notNil ifTrue:[
+        helpText := masterApplication basicHelpTextForKey:aKey.
+        helpText notNil ifTrue:[^ helpText ].
+    ].
 
-    helpText isNil ifTrue:[
-        helpText := super basicHelpTextForKey:aKey.
-    ].
-"/ DEBUG:    ^ aKey , ': ' , helpText
-    ^ helpText
+    "/ then, ask the spec
+    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
+    helpText notNil ifTrue:[^ helpText ].
+
+    "/ finally, ask myself...
+    ^ super basicHelpTextForKey:aKey.
 ! !
 
 !UISpecificationTool methodsFor:'initialization'!