--- a/SimpleBorder.st	Mon Jan 05 21:34:51 2015 +0100
+++ b/SimpleBorder.st	Mon Jan 05 21:35:12 2015 +0100
@@ -12,6 +12,8 @@
 "
 "{ Package: 'stx:libview' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractBorder subclass:#SimpleBorder
 	instanceVariableNames:'color'
 	classVariableNames:''
@@ -43,6 +45,19 @@
     [author:]
         Claus Gittinger
 "
+!
+
+examples
+"
+                                                    [exBegin]
+    |v1 v2 b|
+
+    v1 := View new extent:100@100.
+    v2 := View origin:10@10 corner:90@20 in:v2.
+    v2 border:(SimpleBorder new color:Color red).
+    v1 openAndWait.
+                                                    [exEnd]
+"
 ! !
 
 !SimpleBorder methodsFor:'accessing'!
@@ -109,5 +124,6 @@
 !SimpleBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.6 2009-10-29 15:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.7 2015-01-05 20:35:12 cg Exp $'
 ! !
+