--- a/DeviceGraphicsContext.st Wed Jul 20 11:25:31 2016 +0200
+++ b/DeviceGraphicsContext.st Wed Jul 20 11:26:02 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
@@ -9,8 +11,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-'From Smalltalk/X, Version:7.1.0.0 on 19-07-2016 at 15:46:14' !
-
"{ Package: 'stx:libview' }"
"{ NameSpace: Smalltalk }"
@@ -3922,67 +3922,67 @@
|dither map pixelId p fg bg vOrg ditherDepth deviceDepth|
gcId notNil ifTrue:[
- paint isSymbol ifTrue:[
- "map symbols to colors"
- paint := Color perform:paint ifNotUnderstood:[Color yellow].
- ].
- p := paint.
-
- p isColor ifTrue:[
- paint := p := p onDevice:device.
- pixelId := p colorId.
- pixelId notNil ifTrue:[
- "
- a real (undithered) color
- "
- mask notNil ifTrue:[
- mask := nil.
- device setBitmapMask:nil in:gcId
- ].
- (p ~~ foreground) ifTrue:[
- foreground := paint.
- device setForeground:pixelId in:gcId
- ].
- ^ self
- ].
- "a dithered color"
- dither := paint ditherForm.
- ] ifFalse:[
- "mhmh - seems to be some kind of form ..."
- paint := paint onDevice:device.
- dither := paint.
- ].
- "
- a dithered color or image
- "
- (ditherDepth := dither depth) == 1 ifTrue:[
- "a simple 0/1 bitmap"
- map := dither colorMap.
- "temporary (kludgy) fix for destroyed paint"
- p := paint.
- map isNil ifTrue:[
- fg := Color black.
- bg := Color white.
- ] ifFalse:[
- fg := map at:2.
- bg := map at:1.
- ].
- self foreground:fg background:bg.
- paint := p
- ] ifFalse:[
- deviceDepth := device depth.
- (ditherDepth ~~ deviceDepth) ifTrue:[
- dither := dither asFormOn:device.
- ditherDepth := dither depth.
- (dither isNil or:[ditherDepth ~~ deviceDepth]) ifTrue:[
- self error:'bad dither'.
- ^ self
- ]
- ]
- ].
- self mask:dither.
- vOrg := self viewOrigin.
- self maskOriginX:vOrg x negated y:vOrg y negated.
+ paint isSymbol ifTrue:[
+ "map symbols to colors"
+ paint := Color perform:paint ifNotUnderstood:[Color yellow].
+ ].
+ p := paint.
+
+ p isColor ifTrue:[
+ paint := p := p onDevice:device.
+ pixelId := p colorId.
+ pixelId notNil ifTrue:[
+ "
+ a real (undithered) color
+ "
+ mask notNil ifTrue:[
+ mask := nil.
+ device setBitmapMask:nil in:gcId
+ ].
+ (p ~~ foreground) ifTrue:[
+ foreground := paint.
+ device setForeground:pixelId in:gcId
+ ].
+ ^ self
+ ].
+ "a dithered color"
+ dither := paint ditherForm.
+ ] ifFalse:[
+ "mhmh - seems to be some kind of form ..."
+ paint := paint onDevice:device.
+ dither := paint.
+ ].
+ "
+ a dithered color or image
+ "
+ (ditherDepth := dither depth) == 1 ifTrue:[
+ "a simple 0/1 bitmap"
+ map := dither colorMap.
+ "temporary (kludgy) fix for destroyed paint"
+ p := paint.
+ map isNil ifTrue:[
+ fg := self blackColor.
+ bg := self whiteColor.
+ ] ifFalse:[
+ fg := map at:2.
+ bg := map at:1.
+ ].
+ self foreground:fg background:bg.
+ paint := p
+ ] ifFalse:[
+ deviceDepth := device depth.
+ (ditherDepth ~~ deviceDepth) ifTrue:[
+ dither := dither asFormOn:device.
+ ditherDepth := dither depth.
+ (dither isNil or:[ditherDepth ~~ deviceDepth]) ifTrue:[
+ self error:'bad dither'.
+ ^ self
+ ]
+ ]
+ ].
+ self mask:dither.
+ vOrg := self viewOrigin.
+ self maskOriginX:vOrg x negated y:vOrg y negated.
]
"Created: 16.5.1996 / 15:35:51 / cg"