--- 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!