--- a/FillingWrapper.st	Mon May 13 10:50:38 1996 +0200
+++ b/FillingWrapper.st	Mon May 13 11:34:25 1996 +0200
@@ -142,6 +142,22 @@
 
     v open
                                                                         [exEnd]
+
+ spline as a Buttons-label (hugh ?):
+                                                                        [exBegin]
+    |a b|
+
+    a := ArrowedSpline controlPoints:
+               (Array with:(00@00)
+                      with:(60@60)
+                      with:(00@60)).
+
+    b := Button label:(((StrokingWrapper on:a) 
+                        foregroundColor:Color red;
+                        lineWidth:3;
+                        lineStyle:#dashed)).
+    b open.
+                                                                        [exEnd]
 "
 ! !
 
@@ -167,5 +183,5 @@
 !FillingWrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.6 1996-05-13 08:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.7 1996-05-13 09:34:19 cg Exp $'
 ! !