# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 893521594 -7200
# Node ID c1c6844ddd57085e9cabf6aaec9bc942918f1ec5
# Parent  911e51013604a84236d2947c2813236fe8761196
dont access Display directly

diff -r 911e51013604 -r c1c6844ddd57 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
     ].