--- 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.