--- a/DeviceGraphicsContext.st Thu Nov 27 11:15:56 2014 +0000
+++ b/DeviceGraphicsContext.st Wed Dec 10 23:53:02 2014 +0000
@@ -1625,19 +1625,19 @@
|newPolygon|
gcId isNil ifTrue:[
- self initGC
+ self initGC
].
transformation notNil ifTrue:[
- newPolygon := aPolygon collect:[:point | transformation applyTo:point].
+ newPolygon := aPolygon collect:[:point | transformation applyTo:point].
] ifFalse:[
- newPolygon := aPolygon
+ newPolygon := aPolygon
].
- (newPolygon findFirst:[:p |
- (p isPoint not
- or:[(p x class ~~ SmallInteger)
- or:[(p y class ~~ SmallInteger)]])
- ]) ~~ 0 ifTrue:[
- newPolygon := newPolygon collect:[:p | p asPoint rounded]
+ (newPolygon contains:[:p |
+ (p isPoint not
+ or:[(p x class ~~ SmallInteger)
+ or:[(p y class ~~ SmallInteger)]])
+ ]) ifTrue:[
+ newPolygon := newPolygon collect:[:p | p asPoint rounded]
].
device displayPolygon:newPolygon in:drawableId with:gcId
@@ -4135,11 +4135,11 @@
!DeviceGraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.143 2014-11-23 15:53:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.145 2014-12-02 22:08:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.143 2014-11-23 15:53:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.145 2014-12-02 22:08:36 cg Exp $'
! !