--- a/PSPrStr.st Fri Feb 09 02:31:27 1996 +0100
+++ b/PSPrStr.st Sat Feb 10 16:33:26 1996 +0100
@@ -11,11 +11,11 @@
"
PrinterStream subclass:#PostscriptPrinterStream
- instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle'
- classVariableNames:'Prolog Trailer PageProlog PageTrailer FontHeight FontWidth LeftX
+ instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle'
+ classVariableNames:'Prolog Trailer PageProlog PageTrailer FontHeight FontWidth LeftX
TopY LinesPerPage Italic Bold Normal Courier Times Helvetica'
- poolDictionaries:''
- category:'Streams-External'
+ poolDictionaries:''
+ category:'Streams-External'
!
!PostscriptPrinterStream class methodsFor:'documentation'!
@@ -51,18 +51,6 @@
To output graphics, you need the PSGraphicsContext (and friend-) classes.
These provide protocol similar to the one provided by display graphicContexts.
"
-!
-
-version
- ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.16 1996-02-02 19:53:50 cg Exp $'
-! !
-
-!PostscriptPrinterStream class methodsFor:'queries'!
-
-printerTypeName
- "return a descriptive name"
-
- ^ 'postscript printer'
! !
!PostscriptPrinterStream class methodsFor:'initialization'!
@@ -170,6 +158,22 @@
]
! !
+!PostscriptPrinterStream class methodsFor:'queries'!
+
+printerTypeName
+ "return a descriptive name"
+
+ ^ 'postscript printer'
+!
+
+supportsPostscript
+ "return true if this is a postscript printer"
+
+ ^ true
+
+ "Created: 10.2.1996 / 16:23:23 / cg"
+! !
+
!PostscriptPrinterStream methodsFor:'access writing'!
bold
@@ -310,4 +314,9 @@
colNr := 0
! !
+!PostscriptPrinterStream class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.17 1996-02-10 15:32:43 cg Exp $'
+! !
PostscriptPrinterStream initialize!
--- a/PostscriptPrinterStream.st Fri Feb 09 02:31:27 1996 +0100
+++ b/PostscriptPrinterStream.st Sat Feb 10 16:33:26 1996 +0100
@@ -11,11 +11,11 @@
"
PrinterStream subclass:#PostscriptPrinterStream
- instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle'
- classVariableNames:'Prolog Trailer PageProlog PageTrailer FontHeight FontWidth LeftX
+ instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle'
+ classVariableNames:'Prolog Trailer PageProlog PageTrailer FontHeight FontWidth LeftX
TopY LinesPerPage Italic Bold Normal Courier Times Helvetica'
- poolDictionaries:''
- category:'Streams-External'
+ poolDictionaries:''
+ category:'Streams-External'
!
!PostscriptPrinterStream class methodsFor:'documentation'!
@@ -51,18 +51,6 @@
To output graphics, you need the PSGraphicsContext (and friend-) classes.
These provide protocol similar to the one provided by display graphicContexts.
"
-!
-
-version
- ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.16 1996-02-02 19:53:50 cg Exp $'
-! !
-
-!PostscriptPrinterStream class methodsFor:'queries'!
-
-printerTypeName
- "return a descriptive name"
-
- ^ 'postscript printer'
! !
!PostscriptPrinterStream class methodsFor:'initialization'!
@@ -170,6 +158,22 @@
]
! !
+!PostscriptPrinterStream class methodsFor:'queries'!
+
+printerTypeName
+ "return a descriptive name"
+
+ ^ 'postscript printer'
+!
+
+supportsPostscript
+ "return true if this is a postscript printer"
+
+ ^ true
+
+ "Created: 10.2.1996 / 16:23:23 / cg"
+! !
+
!PostscriptPrinterStream methodsFor:'access writing'!
bold
@@ -310,4 +314,9 @@
colNr := 0
! !
+!PostscriptPrinterStream class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.17 1996-02-10 15:32:43 cg Exp $'
+! !
PostscriptPrinterStream initialize!
--- a/PrinterStream.st Fri Feb 09 02:31:27 1996 +0100
+++ b/PrinterStream.st Sat Feb 10 16:33:26 1996 +0100
@@ -11,10 +11,10 @@
"
PipeStream subclass:#PrinterStream
- instanceVariableNames:''
- classVariableNames:'PrintCommand LeftMargin'
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:'PrintCommand LeftMargin'
+ poolDictionaries:''
+ category:'Streams-External'
!
!PrinterStream class methodsFor:'documentation'!
@@ -41,18 +41,6 @@
More intelligence is added by subclasses (see PostscriptPrinterStream among others.)
"
-!
-
-version
- ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.15 1996-02-02 19:53:52 cg Exp $'
-! !
-
-!PrinterStream class methodsFor:'queries'!
-
-printerTypeName
- "return a descriptive name"
-
- ^ 'dump printer'
! !
!PrinterStream class methodsFor:'initialization'!
@@ -96,6 +84,12 @@
LeftMargin := aNumber
!
+printCommand
+ "return command used for printing (usually lp or lpr)"
+
+ ^ PrintCommand
+!
+
printCommand:aString
"set the command for printing (usually lp or lpr)"
@@ -107,12 +101,22 @@
PrinterStream printCommand:'rsh ibm lpr -h'
PrinterStream printCommand:'gs -sDEVICE=djet500 -sOutputFile=/tmp/stx.ps -sPAPERSIZE=a4 -q -; cat /tmp/stx.ps | rsh ibm lpr -h'
"
+! !
+
+!PrinterStream class methodsFor:'queries'!
+
+printerTypeName
+ "return a descriptive name"
+
+ ^ 'dump printer'
!
-printCommand
- "return command used for printing (usually lp or lpr)"
+supportsPostscript
+ "return true if this is a postscript printer"
- ^ PrintCommand
+ ^ false
+
+ "Created: 10.2.1996 / 16:23:07 / cg"
! !
!PrinterStream methodsFor:'access writing'!
@@ -243,4 +247,9 @@
self spaces:LeftMargin
! !
+!PrinterStream class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.16 1996-02-10 15:33:26 cg Exp $'
+! !
PrinterStream initialize!