Mercurial Mercurial > hg > stx-libtool / 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.
*** empty log message ***
authorclaus
Sat, 18 Feb 1995 02:29:21 +0100
changeset 66 fe0c880f8ac0
parent 65 dd199ab603cf
child 67 09f1a9ed55ac
*** empty log message ***
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SBrowser.st	Fri Feb 17 18:19:08 1995 +0100
+++ b/SBrowser.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/Attic/SBrowser.st,v 1.22 1995-02-16 16:33:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.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/Attic/SBrowser.st,v 1.22 1995-02-16 16:33:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.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:[
--- 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:[
hg/stx-libtool