hg/stx-libbasic2: HPLjetIIPrinterStream.st@e4790af5d077 (annotated)

0 1cf8d1747859 Initial revision claus parents: diff changeset	1	"
4 1f66800df351 * empty log message * claus parents: 2 diff changeset	2	COPYRIGHT (c) 1988 by Claus Gittinger
84 d401ce0001dc . claus parents: 36 diff changeset	3	All Rights Reserved
0 1cf8d1747859 Initial revision claus parents: diff changeset	4
1cf8d1747859 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
1cf8d1747859 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
1cf8d1747859 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
1cf8d1747859 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
1cf8d1747859 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
1cf8d1747859 Initial revision claus parents: diff changeset	10	hereby transferred.
1cf8d1747859 Initial revision claus parents: diff changeset	11	"
1cf8d1747859 Initial revision claus parents: diff changeset	12
1cf8d1747859 Initial revision claus parents: diff changeset	13	PrinterStream subclass:#HPLjetIIPrinterStream
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	14	instanceVariableNames:''
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	15	classVariableNames:''
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	16	poolDictionaries:''
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	17	category:'Streams-External'
0 1cf8d1747859 Initial revision claus parents: diff changeset	18	!
1cf8d1747859 Initial revision claus parents: diff changeset	19
31 e223f3cf2995 * empty log message * claus parents: 9 diff changeset	20	!HPLjetIIPrinterStream class methodsFor:'documentation'!
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	21
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	22	copyright
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	23	"
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	24	COPYRIGHT (c) 1988 by Claus Gittinger
84 d401ce0001dc . claus parents: 36 diff changeset	25	All Rights Reserved
31 e223f3cf2995 * empty log message * claus parents: 9 diff changeset	26
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	27	This software is furnished under a license and may be used
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	28	only in accordance with the terms of that license and with the
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	29	inclusion of the above copyright notice. This software may not
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	30	be provided or otherwise made available to, or used by, any
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	31	other person. No title to or ownership of the software is
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	32	hereby transferred.
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	33	"
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	34	!
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	35
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	36	documentation
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	37	"
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	38	This class defines protocol for simple text prinitng on an HP Laserjet 2/3
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	39	(and compatible) printer.
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	40	It does not support multiple fonts, but knows how to print bold, italic etc.
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	41
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	42	Graphics printing is not supported - you need a postscriptprinter for this.
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	43
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	44	Notice:
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	45	This class only defines some minimum protocol for printing on
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	46	HP-LJ - you really should use a PostscriptPrinter ...
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	47	... however, if you own a LJ, here is some class to start with.
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	48	It may need to be enhanced at some places (for example: provide more
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	49	fonts/emphasis's, better international character translation,
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	50	image printing etc.)
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	51
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	52	This class is not officially supported - take it or leave it.
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	53
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	54	[author:]
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	55	Claus Gittinger
31 e223f3cf2995 * empty log message * claus parents: 9 diff changeset	56	"
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	57	! !
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	58
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	59	!HPLjetIIPrinterStream class methodsFor:'queries'!
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	60
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	61	printerTypeName
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	62	"return a descriptive name"
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	63
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	64	^ 'hp laserjet III compatible printer'
31 e223f3cf2995 * empty log message * claus parents: 9 diff changeset	65	! !
e223f3cf2995 * empty log message * claus parents: 9 diff changeset	66
0 1cf8d1747859 Initial revision claus parents: diff changeset	67	!HPLjetIIPrinterStream methodsFor:'access writing'!
1cf8d1747859 Initial revision claus parents: diff changeset	68
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	69	cr
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	70	"send a carriage-return (newLine) to the printer.
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	71	We have to output cr-nl here"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	72
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	73	super nextPutUntranslated:(Character value:13).
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	74	super nextPutUntranslated:(Character value:10).
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	75	self spaces:LeftMargin
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	76
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	77	"Modified: 18.5.1996 / 09:11:05 / cg"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	78	! !
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	79
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	80	!HPLjetIIPrinterStream methodsFor:'emphasis change'!
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	81
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 112 diff changeset	82	bold
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	83	"switch to bold emphasis"
0 1cf8d1747859 Initial revision claus parents: diff changeset	84
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	85	"send <ESC>(s0S<ESC>(s3B"
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	86
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	87	super escapeAll:'(s0S'.
38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	88	super escapeAll:'(s3B'
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	89
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	90	"Modified: 18.5.1996 / 09:10:39 / cg"
0 1cf8d1747859 Initial revision claus parents: diff changeset	91	!
1cf8d1747859 Initial revision claus parents: diff changeset	92
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	93	italic
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	94	"switch to italic/oblique emphasis"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	95
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	96	super escapeAll:'(s1S'.
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	97	super escapeAll:'(s0B'
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	98
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	99	"Modified: 18.5.1996 / 09:10:44 / cg"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	100	!
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	101
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	102	normal
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	103	"switch to normal/roman emphasis"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	104
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	105	super escapeAll:'(s0S'.
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	106	super escapeAll:'(s0B'
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	107
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	108	"Modified: 18.5.1996 / 09:10:48 / cg"
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	109	! !
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	110
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	111	!HPLjetIIPrinterStream methodsFor:'font change'!
e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	112
0 1cf8d1747859 Initial revision claus parents: diff changeset	113	courier
1cf8d1747859 Initial revision claus parents: diff changeset	114	"switch to courier font"
1cf8d1747859 Initial revision claus parents: diff changeset	115
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	116	super escapeAll:'(s3T'
0 1cf8d1747859 Initial revision claus parents: diff changeset	117	!
1cf8d1747859 Initial revision claus parents: diff changeset	118
1cf8d1747859 Initial revision claus parents: diff changeset	119	helvetica
1cf8d1747859 Initial revision claus parents: diff changeset	120	"switch to helvetica font"
1cf8d1747859 Initial revision claus parents: diff changeset	121
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	122	super escapeAll:'(s4T'
0 1cf8d1747859 Initial revision claus parents: diff changeset	123	!
1cf8d1747859 Initial revision claus parents: diff changeset	124
126 fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 112 diff changeset	125	times
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 112 diff changeset	126	"switch to times font"
fca9404da9d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 112 diff changeset	127
179 38773360f4b7 more on printing (printerType-query) Claus Gittinger <cg@exept.de> parents: 126 diff changeset	128	super escapeAll:'(s5T'
0 1cf8d1747859 Initial revision claus parents: diff changeset	129	! !
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	130
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	131	!HPLjetIIPrinterStream class methodsFor:'documentation'!
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	132
6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	133	version
348 e4790af5d077 comments & category rename Claus Gittinger <cg@exept.de> parents: 259 diff changeset	134	^ '$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.14 1996-05-18 07:14:31 cg Exp $'
259 6d36f3ac42a2 documentation Claus Gittinger <cg@exept.de> parents: 179 diff changeset	135	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 18 May 1996 09:14:51 +0200
changeset 348	e4790af5d077
parent 259	6d36f3ac42a2
child 370	705453f00711
permissions	-rw-r--r--