# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 972474584 -7200
# Node ID 85795055a3bfcc62db3bedebfb80536d124c4573
# Parent  cfb7f5478ca79ccd396853e84b685981dd385dd7
*** empty log message ***

diff -r cfb7f5478ca7 -r 85795055a3bf SystemBrowser.st
--- a/SystemBrowser.st	Wed Oct 25 12:24:39 2000 +0200
+++ b/SystemBrowser.st	Wed Oct 25 13:49:44 2000 +0200
@@ -182,14 +182,15 @@
 
     environment := SnapShotImage for:anImageFileName.
     browser := self 
-                newWithLabel:(self classResources string:'Image Browser')
+                newWithLabel:(self classResources string:'Image Browser - %1' with:anImageFileName asFilename baseName)
                 setupBlock:[:browser | browser environment:environment.
                                        browser setupForAll]
                 onDevice:(Screen current).
 
     "
      SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
-    "! !
+    "
+! !
 
 !SystemBrowser class methodsFor:'Compatibility - ST80'!
 
@@ -2859,6 +2860,7 @@
         ] ifFalse:[
             cls := entry mclass.
             cls isNil ifTrue:[
+self halt.
                 '??? unbound'
             ] ifFalse:[
                 cls isJavaClass ifTrue:[
@@ -2866,6 +2868,9 @@
                 ] ifFalse:[
                     clsName := cls name
                 ].
+(cls selectorAtMethod:entry) isNil ifTrue:[
+    self halt.
+].
                 clsName
                 , ' ' 
                 , (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry))
@@ -2898,8 +2903,7 @@
     "
 
     "Modified: / 17.6.1996 / 17:07:46 / stefan"
-    "Modified: / 17.10.1998 / 11:25:53 / cg"
-!
+    "Modified: / 17.10.1998 / 11:25:53 / cg"!
 
 browseMethodsFrom:aClass where:aBlock title:title
     "launch a browser for all instance- and classmethods in aClass
@@ -3175,6 +3179,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.119 2000-10-24 18:24:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.120 2000-10-25 11:49:44 cg Exp $'
 ! !
 SystemBrowser initialize!