--- a/ViewWithAcceptAndCancelBar.st Wed Sep 26 14:19:04 2012 +0200
+++ b/ViewWithAcceptAndCancelBar.st Wed Sep 26 14:44:28 2012 +0200
@@ -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,9 +287,9 @@
!ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
version
- ^ '$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_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 $'
! !