Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do not show the braces
authortz
Mon, 20 Apr 1998 00:56:37 +0200
changeset 789 ee325d04f292
parent 788 8f9f3c3fcf60
child 790 79bc027907ee
do not show the braces
MethodSelectionBrowser.st file | annotate | diff | comparison | revisions
ResourceSelectionBrowser.st file | annotate | diff | comparison | revisions 
--- 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.
--- 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:
hg/stx-libtool2