--- 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"
!