--- a/FillingWrapper.st	Thu May 09 00:02:28 1996 +0200
+++ b/FillingWrapper.st	Thu May 09 00:14:40 1996 +0200
@@ -96,9 +96,21 @@
 
 ! !
 
+!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
+    "display myself - here, display the geometric object asFilled"
+
     |prevFg|
 
     prevFg := aGC paint.
@@ -109,12 +121,12 @@
 
     aGC paint:prevFg.
 
-    "Modified: 8.5.1996 / 23:48:49 / cg"
     "Created: 8.5.1996 / 23:54:06 / cg"
+    "Modified: 9.5.1996 / 00:11:27 / cg"
 ! !
 
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.1 1996-05-08 22:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.2 1996-05-08 22:14:29 cg Exp $'
 ! !