--- a/LineSegment.st	Sun May 12 23:07:38 1996 +0200
+++ b/LineSegment.st	Sun May 12 23:08:13 1996 +0200
@@ -47,7 +47,7 @@
         Claus Gittinger
 
     [see also:]
-        Rectangle Polygon EllipticalArc Circle Spline Curve Point
+        Rectangle Polygon EllipticalArc Circle Spline Curve Point Arrow
         GraphicsContext
         StrokingWrapper
 "
@@ -56,6 +56,7 @@
 
 examples
 "
+  low leel use:
                                                                         [exBegin]
     |v l|
 
@@ -70,6 +71,20 @@
     v paint:Color blue.
     l displayStrokedOn:v.
                                                                         [exEnd]
+  as component (automatic redraw):
+                                                                        [exBegin]
+    |v l|
+
+    v := View extent:100@100.
+
+    l := LineSegment from:10@10 to:90@90. 
+    v addComponent:(StrokingWrapper on:l).
+
+    l := LineSegment from:90@10 to:10@90. 
+    v addComponent:((StrokingWrapper on:l) foregroundColor:(Color red)).
+
+    v open.
+                                                                        [exEnd]
 "
 ! !
 
@@ -221,5 +236,5 @@
 !LineSegment class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.5 1996-05-12 20:35:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.6 1996-05-12 21:08:13 cg Exp $'
 ! !