--- a/Stream.st Fri Feb 21 23:02:51 2020 +0100
+++ b/Stream.st Sun Feb 23 10:55:30 2020 +0100
@@ -246,6 +246,7 @@
"
! !
+
!Stream methodsFor:'Compatibility-Dolphin'!
display:someObject
@@ -273,6 +274,7 @@
self nextPut:(Character nl)
! !
+
!Stream methodsFor:'accessing'!
contents
@@ -4494,6 +4496,69 @@
"Modified (comment): / 01-04-2019 / 17:12:15 / Claus Gittinger"
!
+nextPutAll:formatString with:arg
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg).
+!
+
+nextPutAll:formatString with:arg1 with:arg2
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg1 with:arg2).
+!
+
+nextPutAll:formatString with:arg1 with:arg2 with:arg3
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg1 with:arg2 with:arg3).
+!
+
+nextPutAll:formatString with:arg1 with:arg2 with:arg3 with:arg4
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4).
+!
+
+nextPutAll:formatString with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5).
+!
+
+nextPutAll:formatString with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6).
+!
+
+nextPutAll:formatString withArguments:args
+ "put all elements of the argument, aCollection onto the receiver,
+ and append a cr (carriage return). aCollection should contain characters.
+ This is only useful with character streams in textMode
+ and only allowed if the receiver supports writing."
+
+ self nextPutAll:(formatString bindWithArguments:args).
+!
+
nextPutAllLines:aCollectionOfStrings
"put all elements of the argument, aCollection as individual lines
onto the receiver, append a cr (carriage return) after each.
@@ -4541,70 +4606,70 @@
"Modified: 8.11.1996 / 23:53:41 / cg"
!
-nextPutLine:aCollection with:arg
+nextPutLine:formatString with:arg
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg).
+ self nextPutLine:(formatString bindWith:arg).
"Created: 13.12.1995 / 10:49:17 / cg"
"Modified: 8.11.1996 / 23:53:41 / cg"
!
-nextPutLine:aCollection with:arg1 with:arg2
+nextPutLine:formatString with:arg1 with:arg2
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg1 with:arg2).
-!
-
-nextPutLine:aCollection with:arg1 with:arg2 with:arg3
+ self nextPutLine:(formatString bindWith:arg1 with:arg2).
+!
+
+nextPutLine:formatString with:arg1 with:arg2 with:arg3
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3).
-!
-
-nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4
+ self nextPutLine:(formatString bindWith:arg1 with:arg2 with:arg3).
+!
+
+nextPutLine:formatString with:arg1 with:arg2 with:arg3 with:arg4
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4).
-!
-
-nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
+ self nextPutLine:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4).
+!
+
+nextPutLine:formatString with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5).
-!
-
-nextPutLine:aCollection with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6
+ self nextPutLine:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5).
+!
+
+nextPutLine:formatString with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6).
-!
-
-nextPutLine:aCollection withArguments:args
+ self nextPutLine:(formatString bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6).
+!
+
+nextPutLine:formatString withArguments:args
"put all elements of the argument, aCollection onto the receiver,
and append a cr (carriage return). aCollection should contain characters.
This is only useful with character streams in textMode
and only allowed if the receiver supports writing."
- self nextPutLine:(aCollection bindWithArguments:args).
+ self nextPutLine:(formatString bindWithArguments:args).
!
nextPutUnicode:aCharacter
@@ -4668,7 +4733,7 @@
something printOn:self
!
-show:something with:arg
+show:aStringWithPlaceHolders with:arg
"append a printed representation of the argument to the stream, expanding
the placeHolder %1 with the printString of arg.
This makes streams somewhat compatible to TextCollectors and
@@ -4676,12 +4741,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWith:arg)
+ self show:(aStringWithPlaceHolders bindWith:arg)
"Modified: / 19-08-2010 / 15:42:00 / cg"
!
-show:something with:arg1 with:arg2
+show:aStringWithPlaceHolders with:arg1 with:arg2
"append a printed representation of the argument to the stream, expanding
the placeHolders %1 and %2 with the printStrings of arg1 and arg2.
This makes streams somewhat compatible to TextCollectors and
@@ -4689,12 +4754,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWith:arg1 with:arg2)
+ self show:(aStringWithPlaceHolders bindWith:arg1 with:arg2)
"Modified: / 19-08-2010 / 15:42:09 / cg"
!
-show:something with:arg1 with:arg2 with:arg3
+show:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4702,12 +4767,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWith:arg1 with:arg2 with:arg3)
+ self show:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3)
"Modified: / 19-08-2010 / 15:42:17 / cg"
!
-show:something with:arg1 with:arg2 with:arg3 with:arg4
+show:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3 with:arg4
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4715,12 +4780,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWith:arg1 with:arg2 with:arg3 with:arg4)
+ self show:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3 with:arg4)
"Created: / 19-08-2010 / 15:42:25 / cg"
!
-show:something with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
+show:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4728,12 +4793,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5)
+ self show:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5)
"Created: / 19-08-2010 / 15:42:25 / cg"
!
-show:something withArguments:args
+show:aStringWithPlaceHolders 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
@@ -4741,10 +4806,10 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:(something bindWithArguments:args)
-!
-
-showCR:aString
+ self show:(aStringWithPlaceHolders bindWithArguments:args)
+!
+
+showCR:something
"append a printed representation of the argument to the stream
and append a newline character.
This makes streams somewhat compatible to TextCollectors and
@@ -4752,14 +4817,14 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self show:aString.
+ self show:something.
self cr
"Created: 18.5.1996 / 15:34:17 / cg"
"Modified: 11.7.1996 / 10:01:27 / cg"
!
-showCR:something with:arg
+showCR:aStringWithPlaceHolders with:arg
"append a printed representation of the argument to the stream, expanding
the placeHolder %1 with the printString of arg.
This makes streams somewhat compatible to TextCollectors and
@@ -4767,7 +4832,7 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWith:arg)
+ self showCR:(aStringWithPlaceHolders bindWith:arg)
"
Transcript showCR:'hello %1' with:'world'
@@ -4776,7 +4841,7 @@
"Created: / 19-08-2010 / 15:41:46 / cg"
!
-showCR:something with:arg1 with:arg2
+showCR:aStringWithPlaceHolders with:arg1 with:arg2
"append a printed representation of the argument to the stream, expanding
the placeHolders %1 and %2 with the printStrings of arg1 and arg2.
This makes streams somewhat compatible to TextCollectors and
@@ -4784,12 +4849,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWith:arg1 with:arg2)
+ self showCR:(aStringWithPlaceHolders bindWith:arg1 with:arg2)
"Created: / 19-08-2010 / 15:42:37 / cg"
!
-showCR:something with:arg1 with:arg2 with:arg3
+showCR:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4797,7 +4862,7 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWith:arg1 with:arg2 with:arg3)
+ self showCR:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3)
"
Transcript showCR:'hello %1 %2 %3' with:'foo' with:10 with:'bla'
@@ -4807,7 +4872,7 @@
"Modified (comment): / 15-02-2019 / 09:48:27 / Claus Gittinger"
!
-showCR:something with:arg1 with:arg2 with:arg3 with:arg4
+showCR:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3 with:arg4
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4815,12 +4880,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWith:arg1 with:arg2 with:arg3 with:arg4)
+ self showCR:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3 with:arg4)
"Created: / 19-08-2010 / 15:42:50 / cg"
!
-showCR:something with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
+showCR:aStringWithPlaceHolders with:arg1 with:arg2 with:arg3 with:arg4 with:arg5
"append a printed representation of the argument to the stream, expanding
the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
This makes streams somewhat compatible to TextCollectors and
@@ -4828,12 +4893,12 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5)
+ self showCR:(aStringWithPlaceHolders bindWith:arg1 with:arg2 with:arg3 with:arg4 with:arg5)
"Created: / 19-08-2010 / 15:42:50 / cg"
!
-showCR:something withArguments:args
+showCR:aStringWithPlaceHolders 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
@@ -4841,7 +4906,7 @@
Smalltalk at:#Transcript put:Stdout
or to use #show:/#showCR: with internal or external streams."
- self showCR:(something bindWithArguments:args)
+ self showCR:(aStringWithPlaceHolders bindWithArguments:args)
!
showCr:aString