--- a/SystemBrowser.st Wed Jun 23 09:53:31 2004 +0200
+++ b/SystemBrowser.st Wed Jun 23 11:30:24 2004 +0200
@@ -5288,16 +5288,6 @@
s := aString asString string.
s := s withoutSeparators.
sel := s.
- sel knownAsSymbol ifTrue:[
- "/ might be already correct ...
- ^ sel
- ].
- (sel startsWith:'#') ifTrue:[
- t := Symbol readFrom:sel onError:nil.
- (t notNil and:[ t knownAsSymbol ]) ifTrue:[
- ^ t
- ]
- ].
t := Parser selectorInExpression:sel.
t notNil ifTrue:[
@@ -5384,7 +5374,7 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.209 2004-06-07 09:23:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.210 2004-06-23 09:30:24 penk Exp $'
! !
SystemBrowser initialize!