#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.
--- 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."