# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1516291932 -3600
# Node ID f697558c47cd9ceba405b49593ec8ef17055e9e1
# Parent  74f4d5106d998dbd0e1418263512597c86811cdd
#REFACTORING by cg
class: ResourceSelectionBrowser
changed: #postBuildWith: (send #beepInEditor instead of #beep)

diff -r 74f4d5106d99 -r f697558c47cd ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Thu Jan 18 17:09:06 2018 +0100
+++ b/ResourceSelectionBrowser.st	Thu Jan 18 17:12:12 2018 +0100
@@ -977,7 +977,7 @@
                 what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk.
                 classNameInputField contents:what first.
                 (what at:2) size ~~ 1 ifTrue:[
-                    classNameInputField device beep
+                    classNameInputField device beepInEditor
                 ]
 "/                |what oldClassName|
 "/                oldClassName := classNameInputField contents.