Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Tools::Inspector2
authorStefan Vogel <sv@exept.de>
Wed, 03 Jul 2013 12:48:54 +0200
changeset 13084 57d9962d5742
parent 13083 9ee96844f71d
child 13085 42d374ca3b6e
class: Tools::Inspector2 #displayOn: instead of #displayString
Tools__Inspector2.st file | annotate | diff | comparison | revisions 
--- a/Tools__Inspector2.st	Mon Jul 01 21:18:22 2013 +0200
+++ b/Tools__Inspector2.st	Wed Jul 03 12:48:54 2013 +0200
@@ -1086,11 +1086,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.40 2013-07-03 10:48:54 stefan Exp $'
 !
 
 version_SVN
-    ^'$Id: Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.40 2013-07-03 10:48:54 stefan Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1188,7 +1188,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 |
@@ -1196,9 +1202,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"
@@ -1305,19 +1311,19 @@
 !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.40 2013-07-03 10:48:54 stefan 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.40 2013-07-03 10:48:54 stefan 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.40 2013-07-03 10:48:54 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Inspector2.st,v 1.39 2013-06-25 17:12:19 cg Exp $'
+    ^ '$Id: Tools__Inspector2.st,v 1.40 2013-07-03 10:48:54 stefan Exp $'
 ! !
hg/stx-libtool