--- a/FillingWrapper.st	Wed May 06 09:29:41 2009 +0200
+++ b/FillingWrapper.st	Wed May 06 09:29:44 2009 +0200
@@ -9,12 +9,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libview2' }"
 
-GeometricWrapper subclass:#FillingWrapper
+StrokingOrFillingWrapper subclass:#FillingWrapper
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -169,23 +166,11 @@
 displayOn:aGC
     "display myself - here, display the geometric object asFilled"
 
-    |prevFg prevBg|
-
-    prevFg := aGC paint.
-    prevBg := aGC backgroundPaint.
-
-    aGC paint:foregroundColor on:backgroundColor.
-
-    component displayFilledOn:aGC.
-
-    aGC paint:prevFg on:prevBg.
-
-    "Created: 8.5.1996 / 23:54:06 / cg"
-    "Modified: 10.2.1997 / 14:21:41 / cg"
+    self displayFilledOn:aGC
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.11 2003-08-18 12:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.12 2009-05-06 07:29:44 cg Exp $'
 ! !