changeset 3528 | f697558c47cd |
parent 3198 | d0f01dc022bb |
child 3531 | cf715db898dd |
--- 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.