Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix for new pipe-protocol
authorClaus Gittinger <cg@exept.de>
Wed, 26 May 1999 17:34:40 +0200
changeset 751 5f8d228a48fd
parent 750 4a5176b04075
child 752 c4176e236d83
fix for new pipe-protocol
PSPrStr.st file | annotate | diff | comparison | revisions
PostscriptPrinterStream.st file | annotate | diff | comparison | revisions
PrinterStream.st file | annotate | diff | comparison | revisions 
--- 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!
--- 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!
--- 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!
hg/stx-libbasic2