Tools__Inspector2.st
branchjv
changeset 13180 64a4186ddfce
parent 13178 c9bf900fe729
parent 13132 84c411de6047
child 13182 bc686a7cc736
--- 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 $'
 ! !