#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 2018 17:02:15 +0100
changeset 6264 3b7b675cbdf8
parent 6263 8d70af79d06f
child 6265 cee20d1e21a8
#OTHER by cg code cleanup (beep handling)
TextView.st
--- a/TextView.st	Thu Jan 18 17:02:09 2018 +0100
+++ b/TextView.st	Thu Jan 18 17:02:15 2018 +0100
@@ -1609,7 +1609,7 @@
                               ^ self.
                           ]
                 ifNotFound:[self showNotFound]
-                onError:[self beep]
+                onError:[self beepInEditor]
                 openingCharacters:((parenthesisSpecification at:#open) ", '([{'")
                 closingCharacters:((parenthesisSpecification at:#close) ", ')]}'").
             selectStyle := nil
@@ -3873,7 +3873,7 @@
                   self selectFromLine:startLine col:startCol
                                toLine:line col:col]
         ifNotFound:[self showNotFound]
-        onError:[self beep]
+        onError:[self beepInEditor]
 
     "Modified: 9.10.1997 / 12:57:34 / cg"
 !
@@ -4748,19 +4748,6 @@
     self makeLineVisible:line
 !
 
-showNotFound
-    "search not found - tell user by beeping and changing
-     cursor for a while (sometimes I work with a headset :-)
-     (used to be: tell user by changing cursor for a while)"
-
-    self withCursor:(Cursor cross) do:[
-        self beep.
-        Processor activeProcess millisecondDelay:200.
-    ]
-
-    "Modified: 20.2.1997 / 12:49:27 / cg"
-!
-
 startPositionForSearchBackward
     ^ self startPositionForSearchBackwardBasedOnSelection
 !