# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1552504510 -3600
# Node ID 0bd1739f775837b9c8fcfa3371397e035ccfd01e
# Parent  dfb7f7db7b54c5d5480823d90937814a9a7b8208
#FEATURE by stefan
class: CompressionStream
added: #binary:

diff -r dfb7f7db7b54 -r 0bd1739f7758 CompressionStream.st
--- a/CompressionStream.st	Wed Mar 13 20:14:55 2019 +0100
+++ b/CompressionStream.st	Wed Mar 13 20:15:10 2019 +0100
@@ -121,6 +121,19 @@
     binary := true.
 !
 
+binary:beBinaryBool
+    "ExternalStream protocol compatibility:
+     switch to binary or text mode - default is text"
+
+    |wasBinary|
+
+    wasBinary := binary.
+    binary := beBinaryBool.
+    ^ wasBinary
+
+    "Created: / 13-03-2019 / 19:17:20 / Stefan Vogel"
+!
+
 propagateClose
     ^ propagateClose
 !