UISpecificationTool.st
changeset 3517 e7224542f1a3
parent 3221 0bd301f4d1e1
child 3577 5a3b84a9d7e7
--- a/UISpecificationTool.st	Tue Jan 16 22:13:29 2018 +0100
+++ b/UISpecificationTool.st	Tue Jan 16 22:14:01 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by eXept Software AG
               All Rights Reserved
@@ -345,29 +343,6 @@
 
 !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 master about the spec
-        helpText := masterApplication basicHelpTextFromSpecification:specification forKey:aKey.
-    ] ifFalse:[
-        "/ 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."