--- a/FillWrpr.st	Wed May 29 00:52:46 1996 +0200
+++ b/FillWrpr.st	Wed May 29 10:51:41 1996 +0200
@@ -166,22 +166,23 @@
 displayOn:aGC
     "display myself - here, display the geometric object asFilled"
 
-    |prevFg|
+    |prevFg prevBg|
 
     prevFg := aGC paint.
+    prevBg := aGC backgroundPaint.
 
-    aGC paint:fgColor.
+    aGC paint:fgColor on:bgColor.
 
     component displayFilledOn:aGC.
 
-    aGC paint:prevFg.
+    aGC paint:prevFg on:prevBg.
 
     "Created: 8.5.1996 / 23:54:06 / cg"
-    "Modified: 9.5.1996 / 00:11:27 / cg"
+    "Modified: 29.5.1996 / 10:38:09 / cg"
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.7 1996-05-13 09:34:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.8 1996-05-29 08:51:41 cg Exp $'
 ! !

--- a/FillingWrapper.st	Wed May 29 00:52:46 1996 +0200
+++ b/FillingWrapper.st	Wed May 29 10:51:41 1996 +0200
@@ -166,22 +166,23 @@
 displayOn:aGC
     "display myself - here, display the geometric object asFilled"
 
-    |prevFg|
+    |prevFg prevBg|
 
     prevFg := aGC paint.
+    prevBg := aGC backgroundPaint.
 
-    aGC paint:fgColor.
+    aGC paint:fgColor on:bgColor.
 
     component displayFilledOn:aGC.
 
-    aGC paint:prevFg.
+    aGC paint:prevFg on:prevBg.
 
     "Created: 8.5.1996 / 23:54:06 / cg"
-    "Modified: 9.5.1996 / 00:11:27 / cg"
+    "Modified: 29.5.1996 / 10:38:09 / cg"
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.7 1996-05-13 09:34:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.8 1996-05-29 08:51:41 cg Exp $'
 ! !