# HG changeset patch # User fm # Date 1255353991 -7200 # Node ID 5e522ada7fbb4f08a98fa69adbfe0907fcb8e26d # Parent c69ca30a3fa7ad46ca1c3594edc50ddf1c39614b added: #classResources #resources changed: #searchNextTextReachEnd #searchPreviousTextReachBeginning #searchTextNotFound diff -r c69ca30a3fa7 -r 5e522ada7fbb Tools__StringSearchTool.st --- a/Tools__StringSearchTool.st Mon Oct 12 15:00:53 2009 +0200 +++ b/Tools__StringSearchTool.st Mon Oct 12 15:26:31 2009 +0200 @@ -636,12 +636,12 @@ searchNextTextReachEnd |message| - message := 'End of text reached'. + message := (resources string: 'End of text reached'). self searchTextRestarted: message. Smalltalk beep. self restartSearch ifTrue:[ - message := message, ', starting from the beginning'. + message := message, (resources string: ', starting from the beginning'). self searchTextRestarted: message. self searchNextTextFromBeginning. ]. @@ -650,12 +650,12 @@ searchPreviousTextReachBeginning |message| - message := 'Beginning of text reached'. + message := (resources string: 'Beginning of text reached'). self searchTextRestarted: message. Smalltalk beep. self restartSearch ifTrue:[ - message := message, ', starting from the end'. + message := message, (resources string: ', starting from the end'). self searchTextRestarted: message. self searchPreviousTextFromEnd ]. @@ -663,7 +663,7 @@ searchTextNotFound - self searchTextNotFound: 'Text not found'. + self searchTextNotFound: (resources string: 'Text not found'). ! searchTextNotFound: aMessage @@ -788,9 +788,9 @@ !StringSearchTool class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.16 2009-10-12 13:00:35 fm Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.16 2009-10-12 13:00:35 fm Exp $' + ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $' ! !