# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1199712749 -3600
# Node ID 56a43b103eaabb62b5d9d2cb9cbd57980a54c4bc
# Parent  d8fa3523672924f9af7e994c65f1cafde019b5bb
refactoring

diff -r d8fa35236729 -r 56a43b103eaa 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!