XftFontDescription.st
branchjv
changeset 7034 3205470acdb8
parent 7032 bc8b85059e2b
parent 6938 0fe07ed7c80f
child 7035 b0e610810565
--- a/XftFontDescription.st	Sun Oct 11 07:52:22 2015 +0100
+++ b/XftFontDescription.st	Sun Oct 11 07:57:11 2015 +0100
@@ -663,13 +663,19 @@
 
     opaque ifTrue:[
         bg  := aGC backgroundPaint.
-        bgPixel := bg colorId.
-        "/bgPixel notNil ifTrue:[
-            bgR := bg scaledRed.
-            bgG := bg scaledGreen.
-            bgB := bg scaledBlue.
-            bgA := (bg alpha * 65535) rounded.
-        "/].
+        bg isColor ifTrue:[
+            bgPixel := bg colorId.
+            "/bgPixel notNil ifTrue:[
+                bgR := bg scaledRed.
+                bgG := bg scaledGreen.
+                bgB := bg scaledBlue.
+                bgA := (bg alpha * 65535) rounded.
+            "/].
+        ] ifFalse:[
+            "images are not yet implemented"
+            "/ #todo: fill background rectangle
+            bgR := bgG := bgB := bgA := 16rFFFF.
+        ].
         bgR isNil ifTrue:[
             "/ when drawing into a pixmap...
             bg colorId == 0 ifTrue:[