hg/stx-libview2: PrinterContext.st@952b7c141f6e (annotated)

4340 952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	1	"{ Encoding: utf8 }"
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	2
2184 c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	3	"
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	4	COPYRIGHT (c) 2006 by eXept Software AG
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	5	All Rights Reserved
2184 c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	6
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	7	This software is furnished under a license and may be used
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	8	only in accordance with the terms of that license and with the
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	9	inclusion of the above copyright notice. This software may not
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	10	be provided or otherwise made available to, or used by, any
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	11	other person. No title to or ownership of the software is
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	12	hereby transferred.
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	13	"
2143 8f5996be6907 initial checkin fm parents: diff changeset	14	"{ Package: 'stx:libview2' }"
8f5996be6907 initial checkin fm parents: diff changeset	15
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	16	"{ NameSpace: Smalltalk }"
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	17
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	18	DeviceGraphicsContext subclass:#PrinterContext
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	19	instanceVariableNames:'abort jobid printerInfo textAlign'
2143 8f5996be6907 initial checkin fm parents: diff changeset	20	classVariableNames:''
8f5996be6907 initial checkin fm parents: diff changeset	21	poolDictionaries:''
8f5996be6907 initial checkin fm parents: diff changeset	22	category:'Interface-Printing'
8f5996be6907 initial checkin fm parents: diff changeset	23	!
8f5996be6907 initial checkin fm parents: diff changeset	24
2184 c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	25	!PrinterContext class methodsFor:'documentation'!
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	26
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	27	copyright
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	28	"
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	29	COPYRIGHT (c) 2006 by eXept Software AG
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	30	All Rights Reserved
2184 c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	31
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	32	This software is furnished under a license and may be used
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	33	only in accordance with the terms of that license and with the
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	34	inclusion of the above copyright notice. This software may not
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	35	be provided or otherwise made available to, or used by, any
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	36	other person. No title to or ownership of the software is
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	37	hereby transferred.
c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	38	"
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	39	!
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	40
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	41	documentation
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	42	"
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	43	I am the mediator between the smalltalk printing protocol
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	44	(which is the same as the graphics drawing protocol) and the
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	45	windows printer.
3730 74c5a7f7a679 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 3709 diff changeset	46	When you open a printer, you will typically talk to me, and I will
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	47	forward the graphics commands to my printer.
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	48
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	49	[author:]
3730 74c5a7f7a679 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 3709 diff changeset	50	Felix Madrid (fm@exept.de)
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	51	"
2184 c108f1291023 copyright methods Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	52	! !
2143 8f5996be6907 initial checkin fm parents: diff changeset	53
8f5996be6907 initial checkin fm parents: diff changeset	54	!PrinterContext class methodsFor:'instance creation'!
8f5996be6907 initial checkin fm parents: diff changeset	55
8f5996be6907 initial checkin fm parents: diff changeset	56	fromPrinterInfo: aPrinterInfo
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	57	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	58
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	59	"Modified: / 16-04-2007 / 12:56:56 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	60	! !
8f5996be6907 initial checkin fm parents: diff changeset	61
8f5996be6907 initial checkin fm parents: diff changeset	62	!PrinterContext class methodsFor:'accessing'!
8f5996be6907 initial checkin fm parents: diff changeset	63
8f5996be6907 initial checkin fm parents: diff changeset	64	default
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	65	"Answer the default Printer, or nil if none."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	66
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	67	\|defaultName\|
2143 8f5996be6907 initial checkin fm parents: diff changeset	68
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	69	^ (defaultName := self defaultPrinterName) isNil
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	70	ifTrue:[ nil ]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	71	ifFalse:[ self named:defaultName ]
2143 8f5996be6907 initial checkin fm parents: diff changeset	72
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	73	"
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	74	self default
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	75	"
2143 8f5996be6907 initial checkin fm parents: diff changeset	76
8f5996be6907 initial checkin fm parents: diff changeset	77	"Created: / 27-07-2006 / 17:51:43 / fm"
8f5996be6907 initial checkin fm parents: diff changeset	78	"Modified: / 02-08-2006 / 17:27:09 / fm"
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	79	"Modified: / 10-10-2006 / 17:30:31 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	80	!
8f5996be6907 initial checkin fm parents: diff changeset	81
8f5996be6907 initial checkin fm parents: diff changeset	82	defaultMargins
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	83	"Private - answer aPoint containing the default horizontal and vertical
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	84	margins for a page (units in inches)."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	85
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	86	^ 0.5 @ 0.75
2143 8f5996be6907 initial checkin fm parents: diff changeset	87
8f5996be6907 initial checkin fm parents: diff changeset	88	"Created: / 01-08-2006 / 16:09:31 / fm"
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	89	"Modified: / 10-10-2006 / 17:30:49 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	90	!
8f5996be6907 initial checkin fm parents: diff changeset	91
8f5996be6907 initial checkin fm parents: diff changeset	92	defaultPrinterName
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	93	"Answer the name of the default printer, or nil if none."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	94
2303 06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	95	\|printerInfo printerName\|
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	96
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	97	printerInfo := OperatingSystem getDefaultPrinterName.
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	98	printerName := (printerInfo copyFrom:1 to:(printerInfo indexOf:$,) - 1) trimBlanks.
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	99	^ printerName size == 0 ifTrue:[ nil ] ifFalse:[ printerName ]
2143 8f5996be6907 initial checkin fm parents: diff changeset	100
2303 06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	101	"
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	102	PrinterContext defaultPrinterName
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	103	"
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	104
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	105	"Modified: / 02-08-2006 / 17:26:09 / fm"
06b20d5a52da * empty log message * Claus Gittinger <cg@exept.de> parents: 2300 diff changeset	106	"Modified: / 10-10-2006 / 17:32:45 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	107	!
8f5996be6907 initial checkin fm parents: diff changeset	108
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	109	getPrinterInformation:printerNameString
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	110	" Answer the printer information for the printer named printerNameString. If no name is specified,
2237 950fb103a14e * empty log message * Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	111	answer the information for the default printer."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	112
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	113	self subclassResponsibility
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	114
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	115	"Modified: / 16-04-2007 / 12:56:31 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	116	!
8f5996be6907 initial checkin fm parents: diff changeset	117
8f5996be6907 initial checkin fm parents: diff changeset	118	named: aName
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	119	"Answer a new instance of Printer which represents
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	120	the printer named aName as specified in the host
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	121	Control Panel."
0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	122
2143 8f5996be6907 initial checkin fm parents: diff changeset	123	aName isNil ifTrue: [ ^self default ].
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	124	^self new printerInfoWithName: aName
2143 8f5996be6907 initial checkin fm parents: diff changeset	125
8f5996be6907 initial checkin fm parents: diff changeset	126	"Created: / 27-07-2006 / 17:51:27 / fm"
8f5996be6907 initial checkin fm parents: diff changeset	127	"Modified: / 02-08-2006 / 17:26:29 / fm"
2235 0df6bda4b353 pretty printed & added some documentation and examples Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	128	"Modified: / 10-10-2006 / 17:33:29 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	129	!
8f5996be6907 initial checkin fm parents: diff changeset	130
8f5996be6907 initial checkin fm parents: diff changeset	131	printerNames
2237 950fb103a14e * empty log message * Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	132	"Answer a collection of all known printer names."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	133
2237 950fb103a14e * empty log message * Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	134	^ OperatingSystem getPrintersNames
2143 8f5996be6907 initial checkin fm parents: diff changeset	135
8f5996be6907 initial checkin fm parents: diff changeset	136	"Created: / 27-07-2006 / 17:54:45 / fm"
2237 950fb103a14e * empty log message * Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	137	"Modified: / 10-10-2006 / 18:57:51 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	138	! !
8f5996be6907 initial checkin fm parents: diff changeset	139
8f5996be6907 initial checkin fm parents: diff changeset	140	!PrinterContext methodsFor:'abort handling'!
8f5996be6907 initial checkin fm parents: diff changeset	141
8f5996be6907 initial checkin fm parents: diff changeset	142	abortPrintJob
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	143	"Abort the current print job."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	144
2143 8f5996be6907 initial checkin fm parents: diff changeset	145	abort := true.
8f5996be6907 initial checkin fm parents: diff changeset	146	jobid := nil.
8f5996be6907 initial checkin fm parents: diff changeset	147
8f5996be6907 initial checkin fm parents: diff changeset	148	"Modified: / 02-08-2006 / 15:40:26 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	149	"Modified: / 10-10-2006 / 18:13:45 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	150	!
8f5996be6907 initial checkin fm parents: diff changeset	151
8f5996be6907 initial checkin fm parents: diff changeset	152	aborted
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	153	"Answer whether the user aborted from PrintAbortDialog."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	154
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	155	^ abort
2143 8f5996be6907 initial checkin fm parents: diff changeset	156
8f5996be6907 initial checkin fm parents: diff changeset	157	"Created: / 27-07-2006 / 10:20:10 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	158	"Modified: / 10-10-2006 / 18:13:50 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	159	! !
8f5996be6907 initial checkin fm parents: diff changeset	160
8f5996be6907 initial checkin fm parents: diff changeset	161	!PrinterContext methodsFor:'accessing'!
8f5996be6907 initial checkin fm parents: diff changeset	162
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	163	container
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	164
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	165	^self
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	166	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	167
2143 8f5996be6907 initial checkin fm parents: diff changeset	168	getCharHeight
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	169	"Private - answer the height of the font selected in the receiver's
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	170	device context."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	171
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	172	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	173
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	174	"Modified: / 16-04-2007 / 12:50:06 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	175	!
8f5996be6907 initial checkin fm parents: diff changeset	176
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	177	horizontalPixelsPerMeter
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	178	"Answer horizontal pixels per meter on the screen."
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	179	^self pixelsPerInchOfScreenWidth * 39.3700787
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	180
4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	181	"Modified: / 16-04-2007 / 12:55:21 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	182	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	183
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	184	name
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	185	"Answer the receiver's name from the current printerInfo."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	186
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	187	^ self printerInfo printerName
2143 8f5996be6907 initial checkin fm parents: diff changeset	188
8f5996be6907 initial checkin fm parents: diff changeset	189	"Modified: / 02-08-2006 / 16:55:03 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	190	"Modified: / 10-10-2006 / 18:15:33 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	191	!
8f5996be6907 initial checkin fm parents: diff changeset	192
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	193	name:aName
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	194	"Set the receiver's printer name to aName."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	195
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	196	self printerInfo:(self class getPrinterInformation:aName)
2143 8f5996be6907 initial checkin fm parents: diff changeset	197
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	198	"Modified: / 10-10-2006 / 18:15:36 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	199	!
8f5996be6907 initial checkin fm parents: diff changeset	200
8f5996be6907 initial checkin fm parents: diff changeset	201	numberOfColorBitsPerPixel
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	202	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	203
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	204	"Modified: / 16-04-2007 / 12:51:15 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	205	!
8f5996be6907 initial checkin fm parents: diff changeset	206
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	207	physicalOffsetX
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	208	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	209
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	210	"Modified: / 16-04-2007 / 12:54:23 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	211	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	212
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	213	physicalOffsetY
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	214	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	215
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	216	"Modified: / 16-04-2007 / 12:52:17 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	217	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	218
2143 8f5996be6907 initial checkin fm parents: diff changeset	219	pixelsPerInchOfScreenHeight
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	220	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	221
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	222	"Modified: / 16-04-2007 / 12:54:17 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	223	!
8f5996be6907 initial checkin fm parents: diff changeset	224
8f5996be6907 initial checkin fm parents: diff changeset	225	pixelsPerInchOfScreenWidth
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	226	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	227
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	228	"Modified: / 16-04-2007 / 12:54:15 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	229	!
8f5996be6907 initial checkin fm parents: diff changeset	230
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	231	printerHeightArea
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	232	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	233
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	234	"Modified: / 16-04-2007 / 12:52:28 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	235	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	236
2143 8f5996be6907 initial checkin fm parents: diff changeset	237	printerInfo
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	238	^ printerInfo
2143 8f5996be6907 initial checkin fm parents: diff changeset	239
8f5996be6907 initial checkin fm parents: diff changeset	240	"Created: / 02-08-2006 / 16:55:17 / fm"
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	241	"Modified: / 16-04-2007 / 12:52:36 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	242	!
8f5996be6907 initial checkin fm parents: diff changeset	243
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	244	printerInfo:aPrinterInfo
2143 8f5996be6907 initial checkin fm parents: diff changeset	245	printerInfo := aPrinterInfo
8f5996be6907 initial checkin fm parents: diff changeset	246
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	247	"Modified: / 16-04-2007 / 12:54:07 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	248	!
8f5996be6907 initial checkin fm parents: diff changeset	249
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	250	printerInfoWithName:aName
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	251	self printerInfo:(self class getPrinterInformation:aName).
2143 8f5996be6907 initial checkin fm parents: diff changeset	252
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	253	"Modified: / 16-04-2007 / 12:54:04 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	254	!
8f5996be6907 initial checkin fm parents: diff changeset	255
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	256	printerPhysicalHeight
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	257	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	258
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	259	"Modified: / 16-04-2007 / 12:54:00 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	260	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	261
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	262	printerPhysicalWidth
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	263	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	264
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	265	"Modified: / 16-04-2007 / 12:53:56 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	266	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	267
2143 8f5996be6907 initial checkin fm parents: diff changeset	268	printerUserFriendlyName
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	269	"Answer the receiver's name from the current printerInfo."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	270
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	271	^ self printerInfo userFriendlyName
2143 8f5996be6907 initial checkin fm parents: diff changeset	272
8f5996be6907 initial checkin fm parents: diff changeset	273	"Created: / 03-08-2006 / 12:55:57 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	274	"Modified: / 10-10-2006 / 18:18:55 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	275	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	276
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	277	printerWidthArea
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	278	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	279
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	280	"Modified: / 16-04-2007 / 12:53:51 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	281	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	282
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	283	setPrinterFont:aFont
2273 14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	284
14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	285	self font: aFont
14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	286
14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	287	"Created: / 27-11-2006 / 14:50:55 / User"
14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	288	!
14e357a2c73f changed #setPrinterFont: fm parents: 2272 diff changeset	289
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	290	setTextAlign:aNumber
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	291	textAlign :=aNumber.
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	292
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	293	"Modified: / 16-04-2007 / 12:53:26 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	294	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	295
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	296	setViewportOrg: aPoint
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	297	self subclassResponsibility
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	298
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	299	"Modified: / 16-04-2007 / 12:53:44 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	300	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	301
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	302	verticalPixelsPerMeter
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	303	"Answer vertical pixels per meter on the screen."
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	304
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	305	^self pixelsPerInchOfScreenHeight * 39.3700787
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	306
4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	307	"Modified: / 16-04-2007 / 12:54:43 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	308	! !
8f5996be6907 initial checkin fm parents: diff changeset	309
8f5996be6907 initial checkin fm parents: diff changeset	310	!PrinterContext methodsFor:'initialization & release'!
8f5996be6907 initial checkin fm parents: diff changeset	311
8f5996be6907 initial checkin fm parents: diff changeset	312	buildPrinter
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	313	"Private - create all the operating system resources needed."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	314
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	315	self
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	316	createDC;
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	317	initExtent
2143 8f5996be6907 initial checkin fm parents: diff changeset	318
8f5996be6907 initial checkin fm parents: diff changeset	319	"Created: / 27-07-2006 / 10:20:36 / fm"
8f5996be6907 initial checkin fm parents: diff changeset	320	"Modified: / 01-08-2006 / 15:57:49 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	321	"Modified: / 10-10-2006 / 18:14:04 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	322	!
8f5996be6907 initial checkin fm parents: diff changeset	323
8f5996be6907 initial checkin fm parents: diff changeset	324	createDC
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	325	"Private - Create a device context for the receiver"
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	326
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	327	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	328
8f5996be6907 initial checkin fm parents: diff changeset	329	"Created: / 27-07-2006 / 10:21:05 / fm"
8f5996be6907 initial checkin fm parents: diff changeset	330	"Modified: / 02-08-2006 / 17:30:47 / fm"
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	331	"Modified: / 16-04-2007 / 12:49:22 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	332	!
8f5996be6907 initial checkin fm parents: diff changeset	333
8f5996be6907 initial checkin fm parents: diff changeset	334	initExtent
8f5996be6907 initial checkin fm parents: diff changeset	335	"Private - init the width and height of GraphicsTool for the receiver."
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	336
3287 11a9d55d663c class: PrinterContext Stefan Vogel <sv@exept.de> parents: 2565 diff changeset	337	self graphicsDevice
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	338	width:self printerWidthArea;
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	339	height:self printerHeightArea.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	340
2143 8f5996be6907 initial checkin fm parents: diff changeset	341
8f5996be6907 initial checkin fm parents: diff changeset	342	"Modified: / 01-08-2006 / 16:14:49 / fm"
2314 45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	343	!
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	344
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	345	releaseDC
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	346	"Private - Closes the device context of the receiver"
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	347
2314 45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	348	self subclassResponsibility
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	349
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	350	"Created: / 27-07-2006 / 10:21:05 / fm"
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	351	"Modified: / 02-08-2006 / 17:30:47 / fm"
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	352	"Modified: / 16-04-2007 / 12:49:22 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	353	! !
8f5996be6907 initial checkin fm parents: diff changeset	354
8f5996be6907 initial checkin fm parents: diff changeset	355	!PrinterContext methodsFor:'printing'!
8f5996be6907 initial checkin fm parents: diff changeset	356
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	357	print:aString font:aFont title:aTitle wordWrap:wordWrapBoolean marginsRect:aMarginsRect
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	358	"Answer the receiver. Output the receiver string to
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	359	the printer using aFont. A Print abort dialog box will be opened
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	360	with aTitle. If collateBoolean is true, collate output, otherwise
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	361	do not. Print copiesInteger copies of the specified string. If
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	362	wordWrapBoolean is true, word wrap the lines, otherwise do not.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	363	Left, top, right & bottom margins are specified in inches in
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	364	aMarginsRect."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	365
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	366	\|lines linesPerPage totalPage marginsRect firstPage abortDialog\|
2143 8f5996be6907 initial checkin fm parents: diff changeset	367
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	368	jobid isNil ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	369	self startPrintJob:aTitle
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	370	].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	371	abortDialog := PrintAbortDialog new open:aTitle printer:self.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	372	self font:aFont.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	373	marginsRect := self marginsRectangleFor:aMarginsRect.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	374	lines := self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	375	asArrayOfStringLines:aString
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	376	in:marginsRect
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	377	wordWrap:wordWrapBoolean.
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	378	linesPerPage := self linesPerPageFor: marginsRect.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	379	totalPage := (lines size + linesPerPage - 1) // linesPerPage.
2143 8f5996be6907 initial checkin fm parents: diff changeset	380	firstPage := true.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	381
2143 8f5996be6907 initial checkin fm parents: diff changeset	382	"/ collateBoolean
8f5996be6907 initial checkin fm parents: diff changeset	383	"/ ifTrue: [
8f5996be6907 initial checkin fm parents: diff changeset	384	"/ copiesInteger timesRepeat: [
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	385
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	386	1 to:totalPage do:[:page \|
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	387	abort ifTrue:[ ^ self ].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	388	firstPage ifFalse:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	389	self formFeed
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	390	].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	391	abortDialog
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	392	updatePrintingPageInfo:(self class classResources
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	393	string:'Page %1/%2'
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	394	with:page printString
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	395	with:totalPage printString).
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	396
2143 8f5996be6907 initial checkin fm parents: diff changeset	397	"/ self device font: printerFont.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	398
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	399	self font:aFont.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	400	self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	401	printPage:page
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	402	in:marginsRect
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	403	lines:lines
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	404	linesPerPage:linesPerPage.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	405	firstPage := false
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	406	].
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	407
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	408	"/ ]
2143 8f5996be6907 initial checkin fm parents: diff changeset	409	"/ ] ifFalse: [
8f5996be6907 initial checkin fm parents: diff changeset	410	"/ 1 to: totalPage do: [ :page \|
8f5996be6907 initial checkin fm parents: diff changeset	411	"/ copiesInteger timesRepeat: [
8f5996be6907 initial checkin fm parents: diff changeset	412	"/ abort ifTrue: [ ^self endPrintJob ].
8f5996be6907 initial checkin fm parents: diff changeset	413	"/ firstPage ifFalse: [ self formFeed ].
8f5996be6907 initial checkin fm parents: diff changeset	414	"/ self device font: printerFont.
8f5996be6907 initial checkin fm parents: diff changeset	415	"/ self printPage: page in: marginsRect lines: lines linesPerPage: linesPerPage.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	416	"/ firstPage := false
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	417	"/ ]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	418	"/ ]
2143 8f5996be6907 initial checkin fm parents: diff changeset	419	"/ ].
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	420
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	421	jobid notNil ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	422	self endPrintJob.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	423	abortDialog close.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	424	].
2143 8f5996be6907 initial checkin fm parents: diff changeset	425
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	426	"/ abort ifFalse: [ abortDialog close ]
2143 8f5996be6907 initial checkin fm parents: diff changeset	427
8f5996be6907 initial checkin fm parents: diff changeset	428	"Created: / 03-08-2006 / 16:13:33 / fm"
8f5996be6907 initial checkin fm parents: diff changeset	429	"Modified: / 04-08-2006 / 13:40:02 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	430	"Modified: / 10-10-2006 / 18:16:54 / cg"
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	431	"Modified: / 12-10-2006 / 11:50:37 / User"
2143 8f5996be6907 initial checkin fm parents: diff changeset	432	!
8f5996be6907 initial checkin fm parents: diff changeset	433
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	434	print: aString
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	435	pageHeader: aString2
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	436	font: aFont
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	437	title: aTitle
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	438	collate: collateBoolean
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	439	copies: copiesInteger
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	440	wordWrap: wordWrapBoolean
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	441	marginsRect: aMarginsRect
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	442
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	443	"Private - Answer the receiver. Output the receiver string to
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	444	the printer using aFont. A Print abort dialog box will be opened
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	445	with aTitle. If collateBoolean is true, collate output, otherwise
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	446	do not. Print copiesInteger copies of the specified string. If
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	447	wordWrapBoolean is true, word wrap the lines, otherwise do not.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	448	Left, top, right & bottom margins are specified in inches in
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	449	aMarginsRect.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	450	Mg: Erweitert um pageHeader"
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	451	"Changed by K3/EES5-Mg, 08.01.96"
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	452
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	453	\| lines linesPerPage totalPage marginsRect firstPage charHeight printerFont headerLines\|
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	454
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	455	printerFont := self setPrinterFont: aFont.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	456	charHeight := self "pen" getCharHeight.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	457	marginsRect := self marginsRectangleFor: aMarginsRect.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	458	lines := self "pen" asArrayOfStringLines: aString in: marginsRect wordWrap: wordWrapBoolean.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	459	headerLines := self "pen" asArrayOfStringLines: aString2 in: marginsRect wordWrap: wordWrapBoolean.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	460	linesPerPage := marginsRect bottom - marginsRect top // charHeight.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	461
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	462	linesPerPage > headerLines size
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	463	ifFalse:
4340 952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	464	[Dialog information: 'Der Dokumentenkopf ist zu groß; wird ignoriert!!'.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	465	headerLines := #().
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	466	]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	467	ifTrue: [linesPerPage := linesPerPage - headerLines size].
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	468	totalPage := lines size + linesPerPage - 1 // linesPerPage.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	469	firstPage := true.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	470
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	471	"/ collateBoolean
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	472	"/ ifTrue: [
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	473	"/ copiesInteger timesRepeat: [
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	474
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	475	1 to: totalPage do: [ :page \|
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	476	abort ifTrue: [ ^self endPrintJob ].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	477	firstPage ifFalse: [ self formFeed ].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	478	self "pen" font: aFont "printerFont".
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	479	self printPage: page in: marginsRect lines: lines headerLines: headerLines linesPerPage: linesPerPage.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	480	firstPage := false ]
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	481
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	482	"/ ]
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	483	"/ ]
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	484	"/ ifFalse: [
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	485	"/ 1 to: totalPage do: [ :page \|
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	486	"/ copiesInteger timesRepeat: [
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	487	"/ abort ifTrue: [ ^self endPrintJob ].
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	488	"/ firstPage ifFalse: [ self formFeed ].
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	489	"/ self "pen" font: printerFont.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	490	"/ self printPage: page in: marginsRect lines: lines headerLines: headerLines linesPerPage: linesPerPage.
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	491	"/ firstPage := false ] ] ].
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	492
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	493	"Created: / 30-11-2006 / 13:19:06 / User"
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	494	!
c0c247557f01 * empty log message * fm parents: 2273 diff changeset	495
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	496	print:aString pageHeader:aString2 font:aFont title:aTitle wordWrap:wordWrapBoolean marginsRect:aMarginsRect
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	497	"Private - Answer the receiver. Output the receiver string to
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	498	the printer using aFont. A Print abort dialog box will be opened
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	499	with aTitle. If collateBoolean is true, collate output, otherwise
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	500	do not. Print copiesInteger copies of the specified string. If
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	501	wordWrapBoolean is true, word wrap the lines, otherwise do not.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	502	Left, top, right & bottom margins are specified in inches in
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	503	aMarginsRect."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	504
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	505	\|lines linesPerPage totalPage marginsRect firstPage charHeight printerFont headerLines\|
2143 8f5996be6907 initial checkin fm parents: diff changeset	506
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	507	self font:aFont.
2143 8f5996be6907 initial checkin fm parents: diff changeset	508	charHeight := self getCharHeight.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	509	marginsRect := self marginsRectangleFor:aMarginsRect.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	510	lines := self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	511	asArrayOfStringLines:aString
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	512	in:marginsRect
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	513	wordWrap:wordWrapBoolean.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	514	headerLines := self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	515	asArrayOfStringLines:aString2
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	516	in:marginsRect
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	517	wordWrap:wordWrapBoolean.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	518	linesPerPage := (marginsRect bottom - marginsRect top) // charHeight.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	519	linesPerPage > headerLines size ifFalse:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	520	Dialog information:(self class classResources
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	521	string:'The header is too large - ignored!!').
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	522	headerLines := #().
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	523	] ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	524	linesPerPage := linesPerPage - headerLines size
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	525	].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	526	totalPage := (lines size + linesPerPage - 1) // linesPerPage.
2143 8f5996be6907 initial checkin fm parents: diff changeset	527	firstPage := true.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	528
2143 8f5996be6907 initial checkin fm parents: diff changeset	529	"/ collateBoolean
8f5996be6907 initial checkin fm parents: diff changeset	530	"/ ifTrue: [
8f5996be6907 initial checkin fm parents: diff changeset	531	"/ copiesInteger timesRepeat: [
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	532
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	533	1 to:totalPage do:[:page \|
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	534	abort ifTrue:[ ^ self ].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	535	firstPage ifFalse:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	536	self formFeed
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	537	].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	538	self font:printerFont.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	539	self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	540	printPage:page
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	541	in:marginsRect
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	542	lines:lines
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	543	headerLines:headerLines
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	544	linesPerPage:linesPerPage.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	545	firstPage := false
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	546	]
2143 8f5996be6907 initial checkin fm parents: diff changeset	547
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	548	"/ ]
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	549	"/ ] ifFalse: [
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	550	"/ 1 to: totalPage do: [ :page \|
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	551	"/ copiesInteger timesRepeat: [
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	552	"/ abort ifTrue: [ ^self endPrintJob ].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	553	"/ firstPage ifFalse: [ self formFeed ].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	554	"/ self device font: printerFont.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	555	"/ self printPage: page in: marginsRect lines: lines headerLines: headerLines linesPerPage: linesPerPage.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	556	"/ firstPage := false
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	557	"/ ]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	558	"/ ]
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	559	"/ ].
2143 8f5996be6907 initial checkin fm parents: diff changeset	560
8f5996be6907 initial checkin fm parents: diff changeset	561	"Created: / 03-08-2006 / 16:14:10 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	562	"Modified: / 10-10-2006 / 18:18:03 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	563	! !
8f5996be6907 initial checkin fm parents: diff changeset	564
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	565	!PrinterContext methodsFor:'printing process'!
2143 8f5996be6907 initial checkin fm parents: diff changeset	566
8f5996be6907 initial checkin fm parents: diff changeset	567	endPage
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	568	"Informs device that we are finished writing to a page."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	569
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	570	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	571
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	572	"Modified: / 16-04-2007 / 12:47:31 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	573	!
8f5996be6907 initial checkin fm parents: diff changeset	574
8f5996be6907 initial checkin fm parents: diff changeset	575	endPrintJob
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	576	"End the print job. Everything drawn between startPrintJob
2314 45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	577	and endPrintJob will become one entry in the print queue.
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	578	Close and clean the device context of the receiver"
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	579
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	580	self endPrintJobWithoutRelease.
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	581	self releaseDC.
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	582
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	583	"Modified: / 16-04-2007 / 12:47:28 / cg"
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	584	!
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	585
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	586	endPrintJobWithoutRelease
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	587	"End the print job. Everything drawn between startPrintJob
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	588	and endPrintJob will become one entry in the print queue.
45d7ac6cc556 changed #endPrintJob fm parents: 2303 diff changeset	589	Won't close the DC "
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	590
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	591	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	592
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	593	"Modified: / 16-04-2007 / 12:47:28 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	594	!
8f5996be6907 initial checkin fm parents: diff changeset	595
8f5996be6907 initial checkin fm parents: diff changeset	596	formFeed
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	597	"Send a form feed to the printer."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	598
2143 8f5996be6907 initial checkin fm parents: diff changeset	599	self
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	600	endPage;
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	601	startPage
2143 8f5996be6907 initial checkin fm parents: diff changeset	602
8f5996be6907 initial checkin fm parents: diff changeset	603	"Created: / 27-07-2006 / 18:25:40 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	604	"Modified: / 10-10-2006 / 18:15:07 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	605	!
8f5996be6907 initial checkin fm parents: diff changeset	606
8f5996be6907 initial checkin fm parents: diff changeset	607	startPage
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	608	"Starts a page."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	609
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	610	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	611
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	612	"Modified: / 16-04-2007 / 12:47:13 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	613	!
8f5996be6907 initial checkin fm parents: diff changeset	614
8f5996be6907 initial checkin fm parents: diff changeset	615	startPrintJob
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	616	"Start a print job. Everything drawn between startPrintJob
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	617	and endPrintJob will become one entry in the print queue."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	618
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	619	self startPrintJob:nil
2143 8f5996be6907 initial checkin fm parents: diff changeset	620
8f5996be6907 initial checkin fm parents: diff changeset	621	"Created: / 27-07-2006 / 18:18:52 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	622	"Modified: / 10-10-2006 / 18:19:05 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	623	!
8f5996be6907 initial checkin fm parents: diff changeset	624
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	625	startPrintJob:aString
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	626	"Start a print job, using aString as the job title; everything
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	627	drawn between startPrintJob and endPrintJob will become
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	628	one entry in the print queue."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	629
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	630	^ self startPrintJob:aString fileName:nil
2143 8f5996be6907 initial checkin fm parents: diff changeset	631
8f5996be6907 initial checkin fm parents: diff changeset	632	"Created: / 27-07-2006 / 18:19:09 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	633	"Modified: / 10-10-2006 / 18:19:12 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	634	!
8f5996be6907 initial checkin fm parents: diff changeset	635
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	636	startPrintJob:aString fileName:aFileName
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	637	"Start a print job, using aString as the job title; everything
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	638	drawn between startPrintJob and endPrintJob will become
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	639	one entry in the print queue."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	640
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	641	self subclassResponsibility
2143 8f5996be6907 initial checkin fm parents: diff changeset	642
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	643	"Modified: / 16-04-2007 / 12:46:58 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	644	! !
10c893aa772a * empty log message * fm parents: 2146 diff changeset	645
10c893aa772a * empty log message * fm parents: 2146 diff changeset	646	!PrinterContext methodsFor:'queries'!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	647
10c893aa772a * empty log message * fm parents: 2146 diff changeset	648	supportsColor
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	649	^ false.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	650
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	651	"Modified: / 16-04-2007 / 12:44:19 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	652	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	653
10c893aa772a * empty log message * fm parents: 2146 diff changeset	654	supportsGraphics
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	655	^ false
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	656
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	657	"Modified: / 16-04-2007 / 12:44:29 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	658	! !
10c893aa772a * empty log message * fm parents: 2146 diff changeset	659
2322 7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	660	!PrinterContext methodsFor:'testing'!
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	661
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	662	isPrinterContext
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	663
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	664	^true
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	665	! !
7ea80c2356c7 + isPrinterContext fm parents: 2314 diff changeset	666
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	667	!PrinterContext methodsFor:'text printing'!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	668
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	669	asArrayOfStringLines:aString in:aRectangle wordWrap:wordWrapBoolean
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	670	"Private - convert aString into an array of lines; if wordWrapBoolean
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	671	is true, also perform word wrapping on the lines, within aRectangle."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	672
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	673	\|line lines stream x0 x1 partialLine leftMargin rightMargin partialLineWidth index\|
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	674
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	675	stream := ReadStream on:aString.
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	676	lines := OrderedCollection new.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	677	wordWrapBoolean ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	678	leftMargin := aRectangle left.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	679	rightMargin := aRectangle right
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	680	].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	681	[ stream atEnd ] whileFalse:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	682	line := stream nextLine.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	683	wordWrapBoolean ifFalse:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	684	lines add:line
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	685	] ifTrue:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	686	x0 := x1 := 1.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	687	1 to:line size do:[:i \|
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	688	((line at:i) = Character space "32"
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	689	and:[ (partialLine := line copyFrom:x0 to:i) trimBlanks notEmpty ])
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	690	ifTrue:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	691	partialLineWidth := self stringWidthOf:partialLine.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	692	(leftMargin + partialLineWidth) > rightMargin ifTrue:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	693	partialLine := line copyFrom:x0 to:x1.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	694	lines add:partialLine.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	695	x0 := x1 + 1
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	696	] ifFalse:[ x1 := i ]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	697	].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	698	index := i
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	699	].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	700	line isEmpty ifTrue:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	701	lines add:line
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	702	] ifFalse:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	703	partialLine := line copyFrom:x0 to:index.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	704	partialLineWidth := self stringWidthOf:partialLine.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	705	(leftMargin + partialLineWidth) > rightMargin ifTrue:[
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	706	partialLine := line copyFrom:x0 to:x1.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	707	lines add:partialLine.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	708	partialLine := line copyFrom:x1 + 1 to:index
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	709	].
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	710	lines add:partialLine
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	711	]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	712	]
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	713	].
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	714	^ lines asArray
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	715
10c893aa772a * empty log message * fm parents: 2146 diff changeset	716	"Created: / 02-08-2006 / 17:56:51 / fm"
10c893aa772a * empty log message * fm parents: 2146 diff changeset	717	"Modified: / 04-08-2006 / 13:39:50 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	718	"Modified: / 10-10-2006 / 18:14:00 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	719	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	720
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	721	displayString:aString at:aPoint in:aRect options:ignoredForNow adx:unknownForNow
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	722	\|x y\|
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	723	x := aPoint x.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	724	y := aPoint y.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	725	(textAlign isNil or:[textAlign == 0 ]) ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	726	self displayString:aString at:aPoint.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	727	^ self
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	728	].
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	729	(textAlign == 8 "TaBottom") ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	730	y := aPoint y - (self container font ascent) "container font ascent".
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	731	] ifFalse:[ (textAlign == 6 "TaCenter") ifTrue:[
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	732	"/ x := aRect left + ((aRect width-(container font widthOf:aString))//2).
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	733	] ifFalse:[ (textAlign == 2 "TaRight") ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	734	x := aRect right - (self "container font widthof:" stringWidthOf:aString).
2449 47c5bd490201 fix for TaRight textalign fm parents: 2322 diff changeset	735	"/ y := self "container font ascent" getCharHeight + aPoint y .
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	736	] ifFalse:[ (textAlign == 14 "TaCenterBottom") ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	737	y := aRect bottom - self getCharHeight "container font ascent".
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	738	x := aRect left + ((aRect width-(self "container font widthOf:" stringWidthOf:aString))//2).
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	739	] ifFalse:[ (textAlign == 10) ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	740	x := aRect right - (self "container font widthof:" stringWidthOf:aString).
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	741	y := aPoint y - (self container font ascent)"aRect bottom - self getCharHeight".
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	742	]]]]].
2565 961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	743
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	744	"/aString = '3' ifTrue:[
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	745	"/self halt.
2275 6c2f8ba6b301 changed #displayString:at:in:options:adx: fm parents: 2274 diff changeset	746	"/ Transcript showCR: 'Original Pos: ', aPoint x printString, '@', aPoint y printString,
6c2f8ba6b301 changed #displayString:at:in:options:adx: fm parents: 2274 diff changeset	747	"/ ' Pos: ', x printString, '@', y printString,
2565 961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	748	"/ ' Text: ', aString,
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	749	"/ ' Align: ', textAlign printString.
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	750	"/ self displayString:aString at:(aPoint x@ aPoint y).
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	751	"/].
961d9cb4a31c changed #displayString:at:in:options:adx: fm parents: 2552 diff changeset	752
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	753	self displayString:aString at:(x@y).
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	754
2275 6c2f8ba6b301 changed #displayString:at:in:options:adx: fm parents: 2274 diff changeset	755	"Modified: / 14-12-2006 / 12:29:13 / User"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	756	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	757
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	758	displayStringLines:anIndexedCollection from:startIndex to:endIndex in:aRectangle
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	759	"Private - display Strings in anIndexedCollection starting at startIndex and
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	760	ending at endIndex, clipped within the bounds of aRectangle."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	761
3315 c51703ef04b6 Access graphicsDevice via method send instead of instVar access Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	762	\|charHeight ascent\|
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	763
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	764	charHeight := self getCharHeight.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	765	ascent := self font ascentOn:self device.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	766	startIndex to:endIndex do:[:i \|
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	767	\|lineToPrint\|
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	768
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	769	lineToPrint := (anIndexedCollection at:i).
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	770	self graphicsDevice
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	771	displayString:lineToPrint
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	772	from:1
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	773	to:lineToPrint size
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	774	x:aRectangle left
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	775	y:(aRectangle top + ((i - startIndex) * charHeight))
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	776	in:nil
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	777	with:self gcId
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	778	opaque:false
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	779	fontAscent:ascent.
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	780	].
10c893aa772a * empty log message * fm parents: 2146 diff changeset	781
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	782	"/ region := self setClipRect: aRectangle.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	783	"/ ta := self getTextAlign.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	784	"/ self setTextAlign: TaTop.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	785	"/ startIndex to: endIndex do: [ :i \|
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	786	"/ self
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	787	"/ displayText: ( anIndexedCollection at: i )
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	788	"/ at: aRectangle left @ ( aRectangle top + ( i - startIndex * charHeight ) ) ].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	789	"/ self setTextAlign: ta.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	790	"/ self destroyRegion: region
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	791
10c893aa772a * empty log message * fm parents: 2146 diff changeset	792	"Created: / 03-08-2006 / 11:37:52 / fm"
10c893aa772a * empty log message * fm parents: 2146 diff changeset	793	"Modified: / 03-08-2006 / 12:38:43 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	794	"Modified: / 10-10-2006 / 18:14:36 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	795	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	796
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	797	displayStringLines:anIndexedCollection in:aRectangle
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	798	"Private - display anIndexedCollection of Strings clipped within
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	799	the bounds of aRectangle."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	800
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	801	self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	802	displayStringLines:anIndexedCollection
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	803	from:1
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	804	to:anIndexedCollection size
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	805	in:aRectangle
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	806
10c893aa772a * empty log message * fm parents: 2146 diff changeset	807	"Created: / 03-08-2006 / 16:03:07 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	808	"Modified: / 10-10-2006 / 18:14:40 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	809	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	810
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	811	displayText: aString at: aPoint
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	812	self displayString:aString x:aPoint x y:aPoint y
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	813
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	814	"Modified: / 16-04-2007 / 12:44:43 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	815	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	816
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	817	linesPerPageFor: aRectangle
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	818	\|marginsRect charHeight\|
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	819
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	820	marginsRect := aRectangle isNil
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	821	ifTrue:[self marginsRectangleFor: nil]
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	822	ifFalse:[aRectangle].
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	823
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	824	charHeight := self getCharHeight.
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	825	^(marginsRect bottom - marginsRect top) // charHeight
b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	826
b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	827	"Created: / 12-10-2006 / 11:52:57 / User"
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	828	"Modified: / 16-04-2007 / 12:44:56 / cg"
2247 b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	829	!
b0a3ddb53d25 Simple Windows Stream Printing Support fm parents: 2237 diff changeset	830
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	831	marginsRectangleFor:aRectangle
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	832	"Private - Answer a Rectangle defining margins based on aRectangle.
10c893aa772a * empty log message * fm parents: 2146 diff changeset	833	Units for aRectangle are in inches, returned margins rectangle is
10c893aa772a * empty log message * fm parents: 2146 diff changeset	834	in device units (pixels)."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	835
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	836	\|left top right bottom pixelsPerInchX pixelsPerInchY horzRes vertRes inset rectangle\|
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	837
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	838	pixelsPerInchX := self pixelsPerInchOfScreenWidth.
2552 071be7d5a9b5 changed #marginsRectangleFor: Claus Gittinger <cg@exept.de> parents: 2449 diff changeset	839	pixelsPerInchX == 0 ifTrue:[self halt:'invalid definitions for screen resolution'].
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	840	pixelsPerInchY := self pixelsPerInchOfScreenHeight.
2552 071be7d5a9b5 changed #marginsRectangleFor: Claus Gittinger <cg@exept.de> parents: 2449 diff changeset	841	pixelsPerInchY == 0 ifTrue:[self halt:'invalid definitions for screen resolution'].
071be7d5a9b5 changed #marginsRectangleFor: Claus Gittinger <cg@exept.de> parents: 2449 diff changeset	842
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	843	aRectangle isNil ifTrue:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	844	horzRes := self printerWidthArea.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	845	vertRes := self printerHeightArea.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	846	inset := self class defaultMargins.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	847	left := (inset x * pixelsPerInchX) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	848	top := (inset y * pixelsPerInchY) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	849	right := horzRes - (inset x * pixelsPerInchX) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	850	bottom := vertRes - (inset y * pixelsPerInchY) asInteger
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	851	] ifFalse:[
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	852	left := (aRectangle left * pixelsPerInchX) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	853	top := (aRectangle top * pixelsPerInchY) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	854	right := (aRectangle right * pixelsPerInchX) asInteger.
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	855	bottom := (aRectangle bottom * pixelsPerInchY) asInteger
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	856	].
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	857	rectangle := left @ top corner:right @ bottom.
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	858	^ rectangle
10c893aa772a * empty log message * fm parents: 2146 diff changeset	859
10c893aa772a * empty log message * fm parents: 2146 diff changeset	860	"Created: / 27-07-2006 / 18:22:57 / fm"
10c893aa772a * empty log message * fm parents: 2146 diff changeset	861	"Modified: / 04-08-2006 / 13:39:45 / fm"
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	862	"Modified: / 16-04-2007 / 11:57:21 / cg"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	863	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	864
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	865	printPage:pageIndex in:aRectangle lines:lines headerLines:headerLines linesPerPage:linesPerPage
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	866	"Private - print page # pageIndex from lines, assuming
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	867	the given number of linesPerPage."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	868
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	869	\|firstLine lastLine l indexString p cHeight rect hLines\|
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	870
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	871	firstLine := (pageIndex - 1) * linesPerPage + 1.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	872	lastLine := (firstLine + linesPerPage - 1) min:lines size.
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	873	rect := aRectangle deepCopy.
10c893aa772a * empty log message * fm parents: 2146 diff changeset	874	hLines := headerLines deepCopy.
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	875	headerLines size > 0 ifTrue:[
4340 952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	876	l := hLines first.
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	877	p := l indexOfSubCollection: "indexOfString:"'#P'.
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	878	p == 0 ifFalse:[
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	879	indexString := pageIndex printString , ' '.
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	880	l := (l copyTo:p - 1) , indexString , (l copyFrom:p + 2).
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	881	hLines at:1 put:l.
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	882	].
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	883	cHeight := self getCharHeight.
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	884	rect top:rect top + (hLines size * cHeight).
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	885	].
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	886	self displayStringLines:hLines in:aRectangle.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	887	self
4340 952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	888	displayStringLines:lines
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	889	from:firstLine
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	890	to:lastLine
952b7c141f6e #TUNING by exept Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	891	in:rect.
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	892
10c893aa772a * empty log message * fm parents: 2146 diff changeset	893	"Created: / 27-07-2006 / 18:28:00 / fm"
10c893aa772a * empty log message * fm parents: 2146 diff changeset	894	"Modified: / 03-08-2006 / 16:03:15 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	895	"Modified: / 10-10-2006 / 18:18:15 / cg"
2274 c0c247557f01 * empty log message * fm parents: 2273 diff changeset	896	"Modified: / 30-11-2006 / 13:34:44 / User"
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	897	!
10c893aa772a * empty log message * fm parents: 2146 diff changeset	898
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	899	printPage:pageIndex in:aRectangle lines:lines linesPerPage:linesPerPage
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	900	"Private - print page # pageIndex from lines, assuming
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	901	the given number of linesPerPage."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	902
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	903	\|firstLine lastLine\|
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	904
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	905	firstLine := (pageIndex - 1) * linesPerPage + 1.
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	906	lastLine := (firstLine + linesPerPage - 1) min:lines size.
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	907	self
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	908	displayStringLines:lines
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	909	from:firstLine
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	910	to:lastLine
ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	911	in:aRectangle
2147 10c893aa772a * empty log message * fm parents: 2146 diff changeset	912
10c893aa772a * empty log message * fm parents: 2146 diff changeset	913	"Created: / 27-07-2006 / 18:24:59 / fm"
10c893aa772a * empty log message * fm parents: 2146 diff changeset	914	"Modified: / 03-08-2006 / 12:47:24 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	915	"Modified: / 10-10-2006 / 18:18:22 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	916	!
8f5996be6907 initial checkin fm parents: diff changeset	917
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	918	stringWidthOf:aString
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	919	"Return the width of aString
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	920	when written using the current font."
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	921
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	922	^ self stringWidthOf:aString at:aString size.
2143 8f5996be6907 initial checkin fm parents: diff changeset	923
8f5996be6907 initial checkin fm parents: diff changeset	924	"Modified: / 03-08-2006 / 10:18:23 / fm"
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	925	"Modified: / 10-10-2006 / 18:20:08 / cg"
2143 8f5996be6907 initial checkin fm parents: diff changeset	926	!
8f5996be6907 initial checkin fm parents: diff changeset	927
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	928	stringWidthOf:aString at:index
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	929	"Return the width of aString up to index
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	930	when written using the current font; expand tabs out
76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	931	to 4 spaces for calculations"
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	932
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	933	self subclassResponsibility
2236 76291d984db9 pretty printing Claus Gittinger <cg@exept.de> parents: 2235 diff changeset	934
2300 4f9a576ecdc6 refactorred OS-independent stuff Claus Gittinger <cg@exept.de> parents: 2275 diff changeset	935	"Modified: / 16-04-2007 / 12:45:42 / cg"
2272 64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	936	!
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	937
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	938	withLineStyle:aSymbol lineWidth:lw paint:paintColor do:aBlock
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	939	\|savStyle savWidth savPaint\|
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	940
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	941	savStyle := self lineStyle.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	942	savWidth := self lineWidth.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	943	savPaint := self paint.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	944
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	945	self lineStyle:aSymbol.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	946	self lineWidth:lw.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	947	self paint:paintColor.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	948	aBlock value.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	949	self paint:savPaint.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	950	self lineWidth:savWidth.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	951	self lineStyle:savStyle.
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	952
64e4bdfc84b9 * empty log message * fm parents: 2247 diff changeset	953	"Created: / 13-09-2006 / 15:38:56 / User"
2143 8f5996be6907 initial checkin fm parents: diff changeset	954	! !
8f5996be6907 initial checkin fm parents: diff changeset	955
8f5996be6907 initial checkin fm parents: diff changeset	956	!PrinterContext class methodsFor:'documentation'!
8f5996be6907 initial checkin fm parents: diff changeset	957
8f5996be6907 initial checkin fm parents: diff changeset	958	version
3709 ae76cdc6787a Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	959	^ '$Header$'
2143 8f5996be6907 initial checkin fm parents: diff changeset	960	! !
3287 11a9d55d663c class: PrinterContext Stefan Vogel <sv@exept.de> parents: 2565 diff changeset	961

author	Claus Gittinger <cg@exept.de>
	Sun, 08 Sep 2019 15:19:44 +0200
changeset 4340	952b7c141f6e
parent 3730	74c5a7f7a679
permissions	-rw-r--r--