changed: #displayString:from:to:x:y:opaque:
authorStefan Vogel <sv@exept.de>
Thu, 08 Oct 2009 12:45:52 +0200
changeset 5361 da9562a37595
parent 5360 878079de94f0
child 5362 7c945e7c8ea6
changed: #displayString:from:to:x:y:opaque: do not try to set nil backGroundColor if non-opaque (triggers primitiveFailed in linux)
DeviceGraphicsContext.st
--- a/DeviceGraphicsContext.st	Wed Oct 07 20:28:49 2009 +0200
+++ b/DeviceGraphicsContext.st	Thu Oct 08 12:45:52 2009 +0200
@@ -1820,9 +1820,13 @@
     ].
 
     easy ifTrue:[
-        device setForeground:fgId background:bgId in:gcId.
+        opaque ifTrue:[
+            device setForeground:fgId background:bgId in:gcId.
+            background := bgPaint.
+        ] ifFalse:[
+            device setForeground:fgId in:gcId.
+        ].
         foreground := paint.
-        background := bgPaint.
         device displayString:s from:index1 to:index2 x:pX y:pY in:drawableId with:gcId opaque:opaque.
         ^ self
     ].
@@ -3774,11 +3778,11 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.120 2009-10-07 18:28:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.121 2009-10-08 10:45:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.120 2009-10-07 18:28:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.121 2009-10-08 10:45:52 stefan Exp $'
 ! !
 
 DeviceGraphicsContext initialize!