--- a/FillWrpr.st	Mon May 13 10:50:38 1996 +0200
+++ b/FillWrpr.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/Attic/FillWrpr.st,v 1.6 1996-05-13 08:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.7 1996-05-13 09:34:19 cg Exp $'
 ! !

--- 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 $'
 ! !

--- a/VComponent.st	Mon May 13 10:50:38 1996 +0200
+++ b/VComponent.st	Mon May 13 11:34:25 1996 +0200
@@ -141,6 +141,7 @@
     aGC translation:oldTranslation
 
     "Created: 13.5.1996 / 10:18:43 / cg"
+    "Modified: 13.5.1996 / 11:18:24 / cg"
 ! !
 
 !VisualComponent methodsFor:'event handling'!
@@ -235,5 +236,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.5 1996-05-13 08:50:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.6 1996-05-13 09:34:25 cg Exp $'
 ! !

--- a/VisualComponent.st	Mon May 13 10:50:38 1996 +0200
+++ b/VisualComponent.st	Mon May 13 11:34:25 1996 +0200
@@ -141,6 +141,7 @@
     aGC translation:oldTranslation
 
     "Created: 13.5.1996 / 10:18:43 / cg"
+    "Modified: 13.5.1996 / 11:18:24 / cg"
 ! !
 
 !VisualComponent methodsFor:'event handling'!
@@ -235,5 +236,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.5 1996-05-13 08:50:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.6 1996-05-13 09:34:25 cg Exp $'
 ! !