--- a/Tools__Inspector2.st Tue Jul 02 01:07:51 2013 +0100
+++ b/Tools__Inspector2.st Tue Jul 09 22:52:27 2013 +0100
@@ -666,6 +666,18 @@
"Modified: / 17-02-2008 / 10:29:45 / janfrog"
"Modified (format): / 11-07-2011 / 22:28:03 / cg"
+!
+
+openOn: anObject title:aString
+
+ ^ self new
+ openOn: anObject;
+ windowTitle:aString
+
+ "
+ self openOn:(Array new:3)
+ self openOn:(Array new:3) title:'my array'
+ "
! !
!Inspector2 class methodsFor:'testing'!
@@ -1104,7 +1116,6 @@
"Created: / 15-07-2011 / 16:25:42 / cg"
! !
-
!Inspector2::NavigationState class methodsFor:'creating classes'!
for:anObject
@@ -1120,11 +1131,11 @@
!Inspector2::NavigationState class methodsFor:'documentation'!
version
- ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
!
version_SVN
- ^'$Id: Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^'$Id: Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
! !
!Inspector2::NavigationState methodsFor:'accessing'!
@@ -1222,7 +1233,13 @@
!Inspector2::NavigationState methodsFor:'displaying'!
-displayString
+displayOn:aGCOrStream
+
+ "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+ "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+ aGCOrStream isStream ifFalse:[
+ ^ super displayOn:aGCOrStream.
+ ].
displayString isNil ifTrue:[
Error handle:[:ex |
@@ -1230,9 +1247,9 @@
] do:[
displayString := theObject printString contractAtEndTo:15.
].
- displayString := displayString , ' [', (theObject class name ? '???') , ']'
+ displayString := displayString , ' [', (theObject className ? '???') , ']'
].
- ^ displayString
+ aGCOrStream nextPutAll:displayString.
"Created: / 21-02-2008 / 19:53:07 / janfrog"
"Modified: / 13-06-2012 / 14:40:34 / cg"
@@ -1340,15 +1357,15 @@
!Inspector2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
!
version_CVS_jvrany
- ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
!
version_HG
@@ -1357,7 +1374,7 @@
!
version_SVN
- ^ '$Id: Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+ ^ '$Id: Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
! !