--- a/Structure.st Wed Apr 22 18:06:44 2015 +0200
+++ b/Structure.st Wed Apr 22 20:03:50 2015 +0200
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libcomp' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#Structure
instanceVariableNames:'superclass flags methodDictionary lookupFunction instSize i1 i2
i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20
@@ -1225,8 +1227,7 @@
args := aMessage arguments.
(sel == #displayString) ifTrue:[
- s := WriteStream on:''.
- s nextPutAll:'Structure('.
+ s := CharacterWriteStream with:'Structure('.
names := self allInstVarNames.
names notNil ifTrue:[
names keysAndValuesDo:[:idx :nm |
@@ -1235,7 +1236,7 @@
s space
].
].
- s nextPutAll:')'.
+ s nextPut:$).
^ s contents
].
@@ -1436,11 +1437,11 @@
!Structure class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.27 2015-04-22 18:03:50 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.27 2015-04-22 18:03:50 stefan Exp $'
! !