--- a/LineSegment.st	Sun May 12 20:45:37 1996 +0200
+++ b/LineSegment.st	Sun May 12 22:35:38 1996 +0200
@@ -49,8 +49,28 @@
     [see also:]
         Rectangle Polygon EllipticalArc Circle Spline Curve Point
         GraphicsContext
+        StrokingWrapper
 "
 
+!
+
+examples
+"
+                                                                        [exBegin]
+    |v l|
+
+    v := (View extent:100@100) openAndWait.
+
+    l := LineSegment from:10@10 to:90@90. 
+
+    v paint:Color red.
+    l displayStrokedOn:v.
+
+    l start:90@10 end:10@90.
+    v paint:Color blue.
+    l displayStrokedOn:v.
+                                                                        [exEnd]
+"
 ! !
 
 !LineSegment class methodsFor:'instance creation'!
@@ -201,5 +221,5 @@
 !LineSegment class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.4 1996-05-08 20:16:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.5 1996-05-12 20:35:38 cg Exp $'
 ! !