# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1516291329 -3600
# Node ID 8d70af79d06fa97548c007bd70498e54bf4cb525
# Parent  5b9bf7c3c82835f3e707593dfc619ce46807edc1
#OTHER by cg
code cleanup (beep handling)

diff -r 5b9bf7c3c828 -r 8d70af79d06f Workspace.st
--- a/Workspace.st	Thu Jan 18 17:02:07 2018 +0100
+++ b/Workspace.st	Thu Jan 18 17:02:09 2018 +0100
@@ -2118,7 +2118,7 @@
      If the text is readOnly, do nothing."
 
     self isReadOnly ifTrue:[
-        self beep.
+        self beepInEditor.
         ^ self.
     ].
     self
@@ -2181,20 +2181,20 @@
      pasting it after the selection."
 
     self isReadOnly ifTrue:[
-	self beep.
-	^ self
+        self beepInEditor.
+        ^ self
     ].
 
     self
-	undoableDo:[
-	    self
-		do:(self selectionOrTextOfCursorLine)
-		withValueDo:[:result |
-		    self replaceSelectionBy:(result displayString "printString")
-		].
-		undoSupport actionInfo:'ReplaceIt'.
-	]
-	info:'ReplaceIt'
+        undoableDo:[
+            self
+                do:(self selectionOrTextOfCursorLine)
+                withValueDo:[:result |
+                    self replaceSelectionBy:(result displayString "printString")
+                ].
+                undoSupport actionInfo:'ReplaceIt'.
+        ]
+        info:'ReplaceIt'
 
     "Created: / 08-11-2007 / 11:31:54 / cg"
 !