language strings
authorClaus Gittinger <cg@exept.de>
Wed, 26 Sep 2012 14:44:28 +0200
changeset 11816 4fd3ddf4f2ff
parent 11815 bb38b22a951d
child 11817 76227c9e12bc
language strings
ViewWithAcceptAndCancelBar.st
--- 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 $'
 ! !