changeset 789 | ee325d04f292 |
parent 773 | de5c99bd3078 |
child 821 | 950e6fbbc1f0 |
--- a/MethodSelectionBrowser.st Mon Apr 20 00:22:38 1998 +0200 +++ b/MethodSelectionBrowser.st Mon Apr 20 00:56:37 1998 +0200 @@ -129,7 +129,7 @@ [ |clsName contentsBlock| resourceTypes isNil ifTrue: [resourceTypes := #(instance class)]. - clsName := self selectionOfClass value name. + clsName := (self selectionOfClass value name upTo: $ ) asSymbol. self valueOfClassName value: clsName. self class lastSelection: clsName. self listOfResourceMethods removeAll.