--- 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.
! !