In BioSmalltalk I use this pattern a lot: aStream nextPutAll: self name between: $[ -> $]. so yes, that would be a nice inclusion for me :) Cheers, Hernán 2015-07-24 17:48 GMT-03:00 stepharo <stepharo@free.fr>:
HI
while working on a lecture I saw that we have about 75 cases like:
aStream nextPut: $(. .... aStream nextPut: $).
storeOn: aStream "Store a description of the elements of the complement rather than self."
aStream nextPut: $(. absent storeOn: aStream. aStream nextPut: $); space; nextPutAll: #complement.
printElementsOn: aStream aStream nextPut: $(. self size > 100 ifTrue: [aStream nextPutAll: 'size '. self size printOn: aStream] ifFalse: [self keysSortedSafely do: [:key | aStream print: key; nextPutAll: '->'; print: (self at: key); space]]. aStream nextPut: $)
we have surroundedBy: aString
surroundedBy: aString ^ self class streamContents: [ :s| s nextPutAll: aString. s nextPutAll: self. s nextPutAll: aString ].
But only working on aString. To me it looks like it ia class for having it on stream.
What do you think?