dont access Display directly
authorClaus Gittinger <cg@exept.de>
Sat, 25 Apr 1998 18:26:34 +0200
changeset 812 c1c6844ddd57
parent 811 911e51013604
child 813 3e0dc3c04f79
dont access Display directly
ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Sat Apr 25 17:45:05 1998 +0200
+++ b/ResourceSelectionBrowser.st	Sat Apr 25 18:26:34 1998 +0200
@@ -707,7 +707,7 @@
         |what|
         what := Smalltalk classnameCompletion: value withoutSpaces.
         classNameInputField contents:what first.
-        (what at:2) size ~~ 1 ifTrue:[Display beep].
+        (what at:2) size ~~ 1 ifTrue:[Screen current beep].
         classSelectionBlock value: classNameInputField contents
     ].