Implement display with #displayOn: instead of #displayString
in Collection hierarchy.
InspectorView uses displayOn: as base machanism, and intermixing both
mechanisms didn't work well with inheritance.
--- a/Interval.st Mon Sep 20 21:43:31 2010 +0200
+++ b/Interval.st Tue Sep 21 08:57:23 2010 +0200
@@ -395,8 +395,15 @@
!Interval methodsFor:'printing & storing'!
-displayString
- ^ self printString
+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 or:[aGCOrStream == Transcript]) ifTrue:[
+ self printOn:aGCOrStream.
+ ^ self.
+ ].
+ ^ super displayOn:aGCOrStream
"
(1 to:10)
@@ -685,5 +692,9 @@
!Interval class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.51 2009-09-08 15:36:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.52 2010-09-21 06:57:23 stefan Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.52 2010-09-21 06:57:23 stefan Exp $'
! !