#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 2018 17:12:12 +0100
changeset 3528 f697558c47cd
parent 3527 74f4d5106d99
child 3529 54d629e6e42c
#REFACTORING by cg class: ResourceSelectionBrowser changed: #postBuildWith: (send #beepInEditor instead of #beep)
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.