--- a/Stream.st Fri Aug 23 17:31:58 2013 +0100
+++ b/Stream.st Wed Aug 28 10:47:51 2013 +0100
@@ -194,6 +194,7 @@
^ ChunkSeparator
! !
+
!Stream methodsFor:'accessing'!
contents
@@ -3202,6 +3203,17 @@
"Created: / 19-08-2010 / 15:42:25 / cg"
!
+show:something withArguments:args
+ "append a printed representation of the argument to the stream, expanding
+ the placeHolders %1,%2 and %3 with the printStrings of argi.
+ This makes streams somewhat compatible to TextCollectors and
+ allows you to say:
+ Smalltalk at:#Transcript put:Stdout
+ or to use #show:/#showCR: with internal or external streams."
+
+ self show:(something bindWithArguments:args)
+!
+
showCR:aString
"append a printed representation of the argument to the stream
and append a newline character.
@@ -3269,6 +3281,17 @@
"Created: / 19-08-2010 / 15:42:50 / cg"
!
+showCR:something withArguments:args
+ "append a printed representation of the argument to the stream, expanding
+ the placeHolders %1,%2 and %3 with the printStrings of argi.
+ This makes streams somewhat compatible to TextCollectors and
+ allows you to say:
+ Smalltalk at:#Transcript put:Stdout
+ or to use #show:/#showCR: with internal or external streams."
+
+ self showCR:(something bindWithArguments:args)
+!
+
showCr:aString
"append a printed representation of the argument to the stream
and append a newline character.
@@ -3444,11 +3467,11 @@
!Stream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.208 2013-08-20 13:46:05 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.209 2013-08-27 07:21:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.208 2013-08-20 13:46:05 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.209 2013-08-27 07:21:48 cg Exp $'
! !