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/Array.st Tue Sep 21 08:57:43 2010 +0200
+++ b/Array.st Tue Sep 21 08:57:51 2010 +0200
@@ -1653,37 +1653,11 @@
!Array methodsFor:'printing & storing'!
-displayString
- "return a printed representation of the receiver for displaying"
-
- |s|
-
- (self isLiteral) ifTrue:[
- s := WriteStream on:String new.
- s writeLimit:5000.
-
- WriteStream writeErrorSignal handle:[:ex |
- s writeLimit:nil.
- s nextPutAll:' ...'
- ] do:[
- s nextPutAll:'#('.
- self
- do:[:each | s nextPutAll:each displayString.]
- separatedBy:[s space]
- ].
- s writeLimit:nil.
- s nextPutAll:')'.
- ^ s contents
+displayStringName
+ self class == Array ifTrue:[
+ ^ '#'
].
- ^ super displayString
-
- "
- #(1 2 3 4) displayString
- #(1 2 3 4) printString
- (Array new:10000) displayString
- "
-
- "Modified: 12.9.1997 / 22:03:18 / cg"
+ ^ super displayStringName.
!
printOn:aStream
@@ -2553,9 +2527,9 @@
!Array class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.148 2009-11-05 16:25:19 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010-09-21 06:57:51 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.148 2009-11-05 16:25:19 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010-09-21 06:57:51 stefan Exp $'
! !