refactoring
authorClaus Gittinger <cg@exept.de>
Mon, 07 Jan 2008 14:32:29 +0100
changeset 7915 56a43b103eaa
parent 7914 d8fa35236729
child 7916 e32bb9390b73
refactoring
SystemBrowser.st
--- 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!