#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:13:40 +0100
changeset 17897 d1a8350c8773
parent 17896 8369fe890ec9
child 17898 f5f921c1e9c1
#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.
ViewWithAcceptAndCancelBar.st
--- a/ViewWithAcceptAndCancelBar.st	Tue Jan 16 22:13:37 2018 +0100
+++ b/ViewWithAcceptAndCancelBar.st	Tue Jan 16 22:13:40 2018 +0100
@@ -240,7 +240,7 @@
 
 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'help'!
 
-flyByHelpTextAt:srcPoint
+helpTextAt:srcPoint
     "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item)."
 
     (acceptButton bounds containsPoint:srcPoint) ifTrue:[
@@ -275,7 +275,7 @@
     acceptButton backgroundColor:acceptColor.
     acceptButton enteredBackgroundColor:acceptColor lightened.
     acceptButton activeBackgroundColor:acceptColor darkened.
-    acceptButton flyByHelpText:(resources string:'Accept').
+    acceptButton helpText:(resources string:'Accept').
     self add:acceptButton.
 
     cancelButton := ButtonWithHelpText new.
@@ -287,7 +287,7 @@
     cancelButton backgroundColor:cancelColor.
     cancelButton enteredBackgroundColor:cancelColor lightened.
     cancelButton activeBackgroundColor:cancelColor darkened.
-    cancelButton flyByHelpText:(resources string:'Cancel').
+    cancelButton helpText:(resources string:'Cancel').
     self add:cancelButton.
 
     compareButton := ButtonWithHelpText new.
@@ -299,7 +299,7 @@
     compareButton backgroundColor:compareColor.
     compareButton enteredBackgroundColor:compareColor lightened lightened.
     compareButton activeBackgroundColor:compareColor darkened.
-    compareButton flyByHelpText:(resources string:'Compare against Original').
+    compareButton helpText:(resources string:'Compare against Original').
     compareButton label:'?'.
     self add:compareButton.
 
@@ -312,11 +312,11 @@
 
 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'!
 
-flyByHelpText
+helpText
     ^ helpText
 !
 
-flyByHelpText:something
+helpText:something
     helpText := something.
 ! !