equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2006 by eXept Software AG |
4 COPYRIGHT (c) 2006 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
5524 getSupportsColor |
5526 getSupportsColor |
5525 |
5527 |
5526 | retVal info | |
5528 | retVal info | |
5527 |
5529 |
5528 info := (self class getPrinterInformationString: self name) asUppercase. |
5530 info := (self class getPrinterInformationString: self name) asUppercase. |
5529 (info includesSubString: ',PSCRIPT,') |
5531 (info includesString: ',PSCRIPT,') |
5530 ifTrue: [ |
5532 ifTrue: [ |
5531 retVal := self class postScriptBlackWhite not. |
5533 retVal := self class postScriptBlackWhite not. |
5532 "/ retVal := (DAPASX::DapasSystemInfo getYesNoInfoApp: 'Printer' profile: 'PostScriptBlackWhite') not. |
5534 "/ retVal := (DAPASX::DapasSystemInfo getYesNoInfoApp: 'Printer' profile: 'PostScriptBlackWhite') not. |
5533 ] |
5535 ] |
5534 ifFalse: [ |
5536 ifFalse: [ |
5535 retVal := (info includesSubString: 'PDF') |
5537 retVal := (info includesString: 'PDF') |
5536 ifTrue: [true] |
5538 ifTrue: [true] |
5537 ifFalse: [self numberOfColorBitsPerPixel > 1]. |
5539 ifFalse: [self numberOfColorBitsPerPixel > 1]. |
5538 ]. |
5540 ]. |
5539 |
5541 |
5540 ^retVal |
5542 ^retVal |
5541 ! |
5543 ! |
5542 |
5544 |
6103 ! |
6105 ! |
6104 |
6106 |
6105 version_CVS |
6107 version_CVS |
6106 ^ '$Header$' |
6108 ^ '$Header$' |
6107 ! ! |
6109 ! ! |
|
6110 |