# HG changeset patch
# User tz
# Date 893026597 -7200
# Node ID ee325d04f292352f35352d96e492f80e4faa9d4a
# Parent  8f9f3c3fcf6090f13c7aedc248de56077e419af9
do not show the braces

diff -r 8f9f3c3fcf60 -r ee325d04f292 MethodSelectionBrowser.st
--- 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.
diff -r 8f9f3c3fcf60 -r ee325d04f292 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Mon Apr 20 00:22:38 1998 +0200
+++ b/ResourceSelectionBrowser.st	Mon Apr 20 00:56:37 1998 +0200
@@ -521,7 +521,7 @@
     [
         |clsName|
         resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
-        clsName := self selectionOfClass value name.
+        clsName := (self selectionOfClass value name upTo: $ ) asSymbol.
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
         self listOfResourceMethods contents: