# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1121424949 -7200
# Node ID 9f246ba60c9131921c13cb02d6f7eff1ccc703ed
# Parent  7471cdbd32056d77c9f28a1441c637397ba9eb14
*** empty log message ***

diff -r 7471cdbd3205 -r 9f246ba60c91 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Fri Jul 15 12:32:35 2005 +0200
+++ b/ResourceSelectionBrowser.st	Fri Jul 15 12:55:49 2005 +0200
@@ -826,8 +826,7 @@
 
     className := class theNonMetaclass name.
 
-    self withWaitCursorDo:
-    [
+    self withWaitCursorDo:[
         |newContents|           
 
         resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
@@ -924,15 +923,24 @@
     classSelectionBlock := [:clsPattern | self classSelectionUpdate:clsPattern].
     self valueOfClassName value: classSelection.  
 
-    (classNameInputField := builder componentAt: #classNameInputField) entryCompletionBlock:
-    [:value|
-        |what oldClassName|
-        oldClassName := classNameInputField contents.
-        what := Smalltalk classnameCompletion: value withoutSpaces.
-        classNameInputField contents:what first.
-        oldClassName = classNameInputField contents ifTrue:[classNameInputField flash].
-        classSelectionBlock value: classNameInputField contents
-    ].
+    (classNameInputField := builder componentAt: #classNameInputField) 
+        entryCompletionBlock:
+            [:value|
+                |s what m|
+
+                s := classNameInputField contents withoutSpaces.
+                what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk.
+                classNameInputField contents:what first.
+                (what at:2) size ~~ 1 ifTrue:[
+                    classNameInputField device beep
+                ]
+"/                |what oldClassName|
+"/                oldClassName := classNameInputField contents.
+"/                what := Smalltalk classnameCompletion: value withoutSpaces.
+"/                classNameInputField contents:what first.
+"/                oldClassName = classNameInputField contents ifTrue:[classNameInputField flash].
+"/                classSelectionBlock value: classNameInputField contents
+            ].
 
     classSelectionBlock value: self valueOfClassName value.
     self updateResourceMethodList.