diff -r 893fad8d458a -r 6921627a8c27 ViewWithAcceptAndCancelBar.st --- a/ViewWithAcceptAndCancelBar.st Tue Sep 18 11:39:12 2012 +0100 +++ b/ViewWithAcceptAndCancelBar.st Thu Sep 27 21:08:20 2012 +0100 @@ -230,15 +230,17 @@ "return the helpText for aPoint (i.e. when mouse-pointer is moved over an item)." (acceptButton bounds containsPoint:srcPoint) ifTrue:[ - ^ 'Accept' + ^ resources string:'Accept' ]. (cancelButton bounds containsPoint:srcPoint) ifTrue:[ - ^ 'Cancel' + ^ resources string:'Cancel' ]. (compareButton bounds containsPoint:srcPoint) ifTrue:[ - ^ 'Compare against Original' + ^ resources string:'Compare against Original' ]. ^ nil + + "Modified: / 26-09-2012 / 14:26:14 / cg" ! ! !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'initialization'! @@ -249,25 +251,27 @@ acceptButton := ButtonWithHelpText new. acceptButton origin:0.0 @ 0.0 corner:1.0@0.7. acceptButton backgroundColor:Color green. - acceptButton flyByHelpText:'Accept'. + acceptButton flyByHelpText:(resources string:'Accept'). self add:acceptButton. cancelButton := ButtonWithHelpText new. cancelButton origin:0.0 @ 0.7 corner:1.0@0.9. cancelButton backgroundColor:Color red. - cancelButton flyByHelpText:'Cancel'. + cancelButton flyByHelpText:(resources string:'Cancel'). self add:cancelButton. compareButton := ButtonWithHelpText new. compareButton origin:0.0 @ 0.9 corner:1.0@1.0. compareButton backgroundColor:Color yellow. - compareButton flyByHelpText:'Compare against Original'. + compareButton flyByHelpText:(resources string:'Compare against Original'). compareButton label:'?'. self add:compareButton. " AcceptAndCancelBar new open " + + "Modified: / 26-09-2012 / 14:44:18 / cg" ! ! !ViewWithAcceptAndCancelBar::AcceptAndCancelBar::ButtonWithHelpText methodsFor:'accessing'! @@ -283,13 +287,13 @@ !ViewWithAcceptAndCancelBar class methodsFor:'documentation'! version - ^ '$Id: ViewWithAcceptAndCancelBar.st 7854 2012-01-30 17:49:41Z vranyj1 $' + ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.11 2012/09/26 12:44:28 cg Exp $' ! version_CVS - ^ '§Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.10 2011/11/29 13:05:12 cg Exp §' + ^ '§Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.11 2012/09/26 12:44:28 cg Exp §' ! version_SVN - ^ '$Id: ViewWithAcceptAndCancelBar.st 7854 2012-01-30 17:49:41Z vranyj1 $' + ^ '$Id: ViewWithAcceptAndCancelBar.st 8059 2012-09-27 20:08:20Z vranyj1 $' ! !