--- a/XftFontDescription.st	Fri Oct 02 19:18:45 2015 +0200
+++ b/XftFontDescription.st	Fri Oct 02 20:10:23 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -660,13 +658,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:[