equal
deleted
inserted
replaced
11 " |
11 " |
12 "{ Package: 'stx:libview2' }" |
12 "{ Package: 'stx:libview2' }" |
13 |
13 |
14 PrinterContext subclass:#WinPrinterContext |
14 PrinterContext subclass:#WinPrinterContext |
15 instanceVariableNames:'deviceFonts hatch supportsColor' |
15 instanceVariableNames:'deviceFonts hatch supportsColor' |
16 classVariableNames:'' |
16 classVariableNames:'PostScriptBlackWhite' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-Printing' |
18 category:'Interface-Printing' |
19 ! |
19 ! |
20 |
20 |
21 !WinPrinterContext primitiveDefinitions! |
21 !WinPrinterContext primitiveDefinitions! |
287 ^self new printerInfoWithName: aName |
287 ^self new printerInfoWithName: aName |
288 |
288 |
289 "Created: / 27-07-2006 / 17:51:27 / fm" |
289 "Created: / 27-07-2006 / 17:51:27 / fm" |
290 "Modified: / 02-08-2006 / 17:26:29 / fm" |
290 "Modified: / 02-08-2006 / 17:26:29 / fm" |
291 "Modified: / 10-10-2006 / 17:33:29 / cg" |
291 "Modified: / 10-10-2006 / 17:33:29 / cg" |
|
292 ! |
|
293 |
|
294 postScriptBlackWhite |
|
295 "Returns true if the postscript is b&w or returns false if the postscript is color" |
|
296 |
|
297 ^ PostScriptBlackWhite ? false |
|
298 ! |
|
299 |
|
300 postScriptBlackWhite: aBoolean |
|
301 |
|
302 PostScriptBlackWhite := aBoolean |
292 ! ! |
303 ! ! |
293 |
304 |
294 !WinPrinterContext class methodsFor:'not supported yet'! |
305 !WinPrinterContext class methodsFor:'not supported yet'! |
295 |
306 |
296 printAdvancedLines: pairOfPointsArray |
307 printAdvancedLines: pairOfPointsArray |
5367 | retVal info | |
5378 | retVal info | |
5368 |
5379 |
5369 info := (self class getPrinterInformationString: self name) asUppercase. |
5380 info := (self class getPrinterInformationString: self name) asUppercase. |
5370 (info includesSubString: ',PSCRIPT,') |
5381 (info includesSubString: ',PSCRIPT,') |
5371 ifTrue: [ |
5382 ifTrue: [ |
5372 retVal := true. |
5383 retVal := self class postScriptBlackWhite not. |
5373 "/ retVal := (DAPASX::DapasSystemInfo getYesNoInfoApp: 'Printer' profile: 'PostScriptBlackWhite') not. |
5384 "/ retVal := (DAPASX::DapasSystemInfo getYesNoInfoApp: 'Printer' profile: 'PostScriptBlackWhite') not. |
5374 ] |
5385 ] |
5375 ifFalse: [ |
5386 ifFalse: [ |
5376 retVal := (info includesSubString: 'PDF') |
5387 retVal := (info includesSubString: 'PDF') |
5377 ifTrue: [true] |
5388 ifTrue: [true] |
5476 ! ! |
5487 ! ! |
5477 |
5488 |
5478 !WinPrinterContext class methodsFor:'documentation'! |
5489 !WinPrinterContext class methodsFor:'documentation'! |
5479 |
5490 |
5480 version |
5491 version |
5481 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.23 2007-11-08 13:06:18 fm Exp $' |
5492 ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.24 2007-11-08 13:14:33 fm Exp $' |
5482 ! ! |
5493 ! ! |