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.
#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:14:35 +0100
changeset 3521 fda84ae10fee
parent 3520 b139ae538098
child 3522 2a319ce12319
#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.
UIHelpTool.st file | annotate | diff | comparison | revisions 
--- a/UIHelpTool.st	Tue Jan 16 22:14:28 2018 +0100
+++ b/UIHelpTool.st	Tue Jan 16 22:14:35 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
 	      All Rights Reserved
@@ -108,7 +110,7 @@
 
 !UIHelpTool class methodsFor:'help specs'!
 
-flyByHelpSpec
+helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
 
@@ -121,7 +123,7 @@
 
     <resource: #help>
 
-    ^ super flyByHelpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #addHelpTextKey
 'Adds the key to the help spec.'
@@ -521,7 +523,7 @@
 alternativeSpecSelectors
     "returns a set of alternative spec method selectors of the resource spec"
 
-    ^ #( helpPairs flyByHelpSpec tooltipSpec )
+    ^ #( helpPairs helpSpec "flyByHelpSpec" tooltipSpec )
 
     "Modified: / 03-02-2017 / 13:05:02 / cg"
 !
hg/stx-libtool2