--- a/SystemBrowser.st Mon Jan 07 14:31:26 2008 +0100
+++ b/SystemBrowser.st Mon Jan 07 14:32:29 2008 +0100
@@ -4805,12 +4805,15 @@
] ifFalse:[
clsName := cls name
].
-(cls selectorAtMethod:entry) isNil ifTrue:[
- self halt.
-].
- clsName
- , ' '
- , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
+ (cls selectorAtMethod:entry) isNil ifTrue:[
+ clsName
+ , ' '
+ , '???'
+ ] ifFalse:[
+ clsName
+ , ' '
+ , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
+ ]
]
]
].
@@ -5366,7 +5369,7 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.247 2008-01-07 13:31:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.248 2008-01-07 13:32:29 cg Exp $'
! !
SystemBrowser initialize!