--- a/FillingWrapper.st	Thu May 09 10:33:21 1996 +0200
+++ b/FillingWrapper.st	Thu May 09 10:43:59 1996 +0200
@@ -42,6 +42,10 @@
     a wrapper for a geometric object, which is to be drawn filled.
     This allows any geometric thingy to be used as a filled component in a view.
 
+    (background info: geometrics are mathematical objects - they do not 
+     keep any color or lineStyle attributes. Wrappers add this information
+     and can also be used as components of a view)
+
     [see also:]
         StrokingWrapper Geometric GraphicsContext
 
@@ -54,49 +58,84 @@
 
 examples
 "
+  wrap an ellipticArc and display it
+  (notice, that no automatic redraw is performed):
                                                                         [exBegin]
-        |v e component|
+    |v e component|
+
+    v := (View extent:250@250) openAndWait.
+
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                        startAngle:0 
+                        sweepAngle:270.
+    component := FillingWrapper on:e.
 
-        v := View extent:250@250.
+    component displayOn:v.
+                                                                        [exEnd]
+  wrap an spline and display it
+  (notice, that no automatic redraw is performed):
+                                                                        [exBegin]
+    |v s component|
+
+    v := (View extent:250@250) openAndWait.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                            startAngle:0 
-                            sweepAngle:270.
-        v addComponent:(StrokingWrapper on:e).
+    s := Spline controlPoints:
+               (Array with:(20@20)
+                      with:(80@80)
+                      with:(20@80)
+                      with:(20@20)).
+    component := FillingWrapper on:s.
+    component foregroundColor:(Color green darkened).
+    component displayOn:v.
+                                                                        [exEnd]
+  wrap ellipticArcs
+  and add them as components to a View
+  (notice, that doing so makes the redraw automatic):
+                                                                        [exBegin]
+    |v e component|
 
-        e := EllipticalArc boundingBox:(110@110 corner:190@190)
-                            startAngle:0 
-                            sweepAngle:270.
-        v addComponent:(FillingWrapper on:e).
-        v open
+    v := View extent:250@250.
+
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                        startAngle:0 
+                        sweepAngle:270.
+    v addComponent:(StrokingWrapper on:e).
+
+    e := EllipticalArc boundingBox:(110@110 corner:190@190)
+                        startAngle:0 
+                        sweepAngle:270.
+    v addComponent:(FillingWrapper on:e).
+    v open
                                                                         [exEnd]
 
 
+  wrap a rectangle and an ellipticArc,
+  and add them as components to a View
+  (notice, that doing so makes the redraw automatic):
                                                                         [exBegin]
-        |v e component|
+    |v e component|
 
-        v := View new.
-        v extent:250@250.
+    v := View new.
+    v extent:250@250.
 
-        e := Rectangle origin:10@10 corner:90@90.
-        component := FillingWrapper on:e.
-        component foregroundColor:Color red.
+    e := Rectangle origin:10@10 corner:90@90.
+    component := FillingWrapper on:e.
+    component foregroundColor:Color red.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        e := EllipticalArc boundingBox:(10@10 corner:90@90)
-                         startAngle:0 sweepAngle:270.
-        component := StrokingWrapper on:e.
-        component lineWidth:5.
+    e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                     startAngle:0 sweepAngle:270.
+    component := StrokingWrapper on:e.
+    component lineWidth:5.
 
-        v addComponent:component.
+    v addComponent:component.
 
-        v addComponent:(Button label:'hello').
+    v addComponent:(Button label:'hello').
 
-        v open
+    v open
                                                                         [exEnd]
 "
-
 ! !
 
 !FillingWrapper methodsFor:'displaying'!
@@ -121,5 +160,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.4 1996-05-09 08:31:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.5 1996-05-09 08:43:59 cg Exp $'
 ! !