beepInEditor flag
authorClaus Gittinger <cg@exept.de>
Tue, 12 May 2009 09:43:51 +0200
changeset 2521 5cfd5fcd7bd3
parent 2520 8ee06c8f3f9f
child 2522 45f29cf0cc5e
beepInEditor flag
ColorEditDialog.st
--- a/ColorEditDialog.st	Tue May 12 09:43:46 2009 +0200
+++ b/ColorEditDialog.st	Tue May 12 09:43:51 2009 +0200
@@ -697,7 +697,9 @@
 
     copyBufferColor := self window getClipboardObject.
     copyBufferColor isColor ifFalse:[
-        self window beep.
+        UserPreferences current beepInEditor ifTrue:[                
+            self window beep.
+        ].
         ^ self
     ].
     self color:copyBufferColor