# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 927732880 -7200
# Node ID 5f8d228a48fd4540acefc0f584c750f66e7f7ae6
# Parent  4a5176b0407592235aea69f2ae766445433f7d6c
fix for new pipe-protocol

diff -r 4a5176b04075 -r 5f8d228a48fd PSPrStr.st
--- a/PSPrStr.st	Sun May 23 20:12:06 1999 +0200
+++ b/PSPrStr.st	Wed May 26 17:34:40 1999 +0200
@@ -926,12 +926,16 @@
         Prolog isNil ifTrue:[
             self class initialize
         ].
-        super writingTo:(self class printCommand).
+        self 
+            openPipeFor:(self class printCommand) 
+            withMode:'w' 
+            errorDisposition:#stderr 
+            inDirectory:nil.
         super nextPutAllUntranslated:Prolog.
         self startPage
     ]
 
-    "Modified: 5.9.1996 / 18:29:34 / cg"
+    "Modified: / 26.5.1999 / 16:15:27 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'private'!
@@ -1108,6 +1112,6 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.49 1997-01-02 12:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.50 1999-05-26 15:34:26 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
diff -r 4a5176b04075 -r 5f8d228a48fd PostscriptPrinterStream.st
--- a/PostscriptPrinterStream.st	Sun May 23 20:12:06 1999 +0200
+++ b/PostscriptPrinterStream.st	Wed May 26 17:34:40 1999 +0200
@@ -926,12 +926,16 @@
         Prolog isNil ifTrue:[
             self class initialize
         ].
-        super writingTo:(self class printCommand).
+        self 
+            openPipeFor:(self class printCommand) 
+            withMode:'w' 
+            errorDisposition:#stderr 
+            inDirectory:nil.
         super nextPutAllUntranslated:Prolog.
         self startPage
     ]
 
-    "Modified: 5.9.1996 / 18:29:34 / cg"
+    "Modified: / 26.5.1999 / 16:15:27 / cg"
 ! !
 
 !PostscriptPrinterStream methodsFor:'private'!
@@ -1108,6 +1112,6 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.49 1997-01-02 12:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.50 1999-05-26 15:34:26 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
diff -r 4a5176b04075 -r 5f8d228a48fd PrinterStream.st
--- a/PrinterStream.st	Sun May 23 20:12:06 1999 +0200
+++ b/PrinterStream.st	Wed May 26 17:34:40 1999 +0200
@@ -189,7 +189,13 @@
      (i.e. text should be sent via nextPutUntranslated in the printers
       native format)"
 
-    ^ self basicNew initialize setNative; writingTo:(self printCommand)
+    ^ self basicNew initialize setNative;
+        openPipeFor:(self printCommand) 
+        withMode:'w' 
+        errorDisposition:#stderr 
+        inDirectory:nil
+
+    "Modified: / 26.5.1999 / 16:14:17 / cg"
 ! !
 
 !PrinterStream class methodsFor:'accessing - defaults'!
@@ -760,9 +766,13 @@
 !
 
 startPrint
-    super writingTo:(self class printCommand).
+    self 
+        openPipeFor:(self class printCommand) 
+        withMode:'w' 
+        errorDisposition:#stderr 
+        inDirectory:nil
 
-    "Modified: 1.6.1996 / 00:13:23 / cg"
+    "Modified: / 26.5.1999 / 16:14:57 / cg"
 ! !
 
 !PrinterStream methodsFor:'queries'!
@@ -852,6 +862,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.49 1998-04-01 09:57:24 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.50 1999-05-26 15:34:40 cg Exp $'
 ! !
 PrinterStream initialize!