--- a/Tools__StringSearchTool.st Thu Jan 18 17:03:21 2018 +0100
+++ b/Tools__StringSearchTool.st Thu Jan 18 17:03:23 2018 +0100
@@ -649,9 +649,10 @@
searchNextTextReachEnd
|message|
+
message := (resources string: 'End of text reached').
self searchTextRestarted: message.
- Smalltalk beep.
+ self beepInEditor.
self restartSearch ifTrue:[
message := message, (resources string: ', starting from the beginning').
@@ -665,7 +666,7 @@
message := (resources string: 'Beginning of text reached').
self searchTextRestarted: message.
- Smalltalk beep.
+ self beepInEditor.
self restartSearch ifTrue:[
message := message, (resources string: ', starting from the end').