--- a/SystemBrowser.st Fri Feb 17 18:19:08 1995 +0100
+++ b/SystemBrowser.st Sat Feb 18 02:29:21 1995 +0100
@@ -29,7 +29,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.22 1995-02-16 16:33:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.23 1995-02-18 01:29:21 claus Exp $
'!
!SystemBrowser class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.22 1995-02-16 16:33:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.23 1995-02-18 01:29:21 claus Exp $
"
!
@@ -367,7 +367,8 @@
where:[:class :method :s | searchBlock value:(method literals)]
title:title
] ifFalse:[
- aSelectorString knownAsSymbol ifFalse:[
+ sel := aSelectorString asSymbolIfInterned.
+ sel isNil ifTrue:[
"
Transcript showCr:'none found.'.
"
@@ -375,7 +376,6 @@
^ nil
].
- sel := aSelectorString asSymbol.
browser := self browseMethodsIn:aCollectionOfClasses
where:[:class :method :s | method sends:sel]
title:title
@@ -435,12 +435,12 @@
] ifFalse:[
"can do a faster search"
- aSelectorString knownAsSymbol ifFalse:[
+ sel := aSelectorString asSymbolIfInterned.
+ sel isNil ifTrue:[
self showNoneFound:title.
^ nil
].
- sel := aSelectorString asSymbol.
aCollectionOfClasses do:[:aClass |
(aClass implements:sel) ifTrue:[
list add:(aClass name , ' ' , aSelectorString)
@@ -528,12 +528,12 @@
"
can do a faster search
"
- aSymbol knownAsSymbol ifFalse:[
+ sym := aSymbol asSymbolIfInterned.
+ sym isNil ifTrue:[
self showNoneFound:title.
^ nil
].
- sym := aSymbol asSymbol.
searchBlock := [:lits |
|found|
@@ -1774,7 +1774,7 @@
"answer a list of all selectors in a given method category
of the argument, aClass"
- |newList searchCategory selector|
+ |newList searchCategory|
(aCategory = '* all *') ifTrue:[
newList := aClass selectorArray asOrderedCollection
@@ -3173,9 +3173,9 @@
switchToClassNamed:aString
|classSymbol theClass newCat|
- aString knownAsSymbol ifFalse:[^ self].
-
- classSymbol := aString asSymbol.
+ classSymbol := aString asSymbolIfInterned.
+ classSymbol isNil ifTrue:[^ self].
+
theClass := Smalltalk at:classSymbol.
theClass isBehavior ifTrue:[
classCategoryListView notNil ifTrue:[