#OTHER by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:14:01 +0100
changeset 3517 e7224542f1a3
parent 3516 39c519deb478
child 3518 0a2d22e2e0e4
#OTHER by cg big refactoring: replaced all flyByHelpXXX sends and implementations by helpXXX. This should remove the confusion on where the tooltips should be stored and which methods need to be redefined. ATTENTION: May introduce temporary inconveniences until all other applications (in exept:xxx packages) are changed.
UISpecificationTool.st
--- 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."