author | Claus Gittinger <cg@exept.de> |
Sat, 25 Apr 1998 18:26:34 +0200 | |
changeset 812 | c1c6844ddd57 |
parent 811 | 911e51013604 |
child 813 | 3e0dc3c04f79 |
--- 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 ].