author | Claus Gittinger <cg@exept.de> |
Mon, 21 May 2018 09:42:34 +0200 | |
changeset 22978 | 589f146aebcd |
parent 22977 | 6069c5ca7b34 |
child 22979 | d0d83c4c7be2 |
ExternalStream.st | file | annotate | diff | comparison | revisions |
--- a/ExternalStream.st Mon May 21 09:27:59 2018 +0200 +++ b/ExternalStream.st Mon May 21 09:42:34 2018 +0200 @@ -5801,12 +5801,24 @@ "Modified: / 23-04-2018 / 18:28:07 / stefan" ! +isPipeStream + "return true, if this stream is a pipe" + + ^ false +! + isReadable "return true, if this stream can be read from" ^ mode ~~ #writeonly ! +isSocket + "return true, if this stream is a socket" + + ^ false +! + isWritable "return true, if this stream can be written to"