--- a/FillWrpr.st	Thu May 09 10:30:41 1996 +0200
+++ b/FillWrpr.st	Thu May 09 10:31:26 1996 +0200
@@ -12,7 +12,7 @@
 
 
 
-Wrapper subclass:#FillingWrapper
+GeometricWrapper subclass:#FillingWrapper
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -99,16 +99,6 @@
 
 ! !
 
-!FillingWrapper methodsFor:'accessing - bounds'!
-
-preferredBounds
-    "return the components bounds as preferredBounds"
-
-    ^ component bounds
-
-    "Created: 9.5.1996 / 00:10:03 / cg"
-! !
-
 !FillingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
@@ -131,5 +121,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.3 1996-05-08 23:11:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.4 1996-05-09 08:31:26 cg Exp $'
 ! !

--- a/FillingWrapper.st	Thu May 09 10:30:41 1996 +0200
+++ b/FillingWrapper.st	Thu May 09 10:31:26 1996 +0200
@@ -12,7 +12,7 @@
 
 
 
-Wrapper subclass:#FillingWrapper
+GeometricWrapper subclass:#FillingWrapper
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -99,16 +99,6 @@
 
 ! !
 
-!FillingWrapper methodsFor:'accessing - bounds'!
-
-preferredBounds
-    "return the components bounds as preferredBounds"
-
-    ^ component bounds
-
-    "Created: 9.5.1996 / 00:10:03 / cg"
-! !
-
 !FillingWrapper methodsFor:'displaying'!
 
 displayOn:aGC
@@ -131,5 +121,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.3 1996-05-08 23:11:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.4 1996-05-09 08:31:26 cg Exp $'
 ! !