--- a/AbstractBorder.st	Mon Jan 05 21:35:37 2015 +0100
+++ b/AbstractBorder.st	Tue Jan 06 02:41:40 2015 +0100
@@ -52,6 +52,12 @@
 
 !AbstractBorder class methodsFor:'instance creation'!
 
+new
+    "return an initialized instance"
+
+    ^ self basicNew initialize.
+!
+
 width:borderWidth
     "create a new instance of the receiver with a border of the given width
      (and default color)."
@@ -112,6 +118,12 @@
     "/ self subclassResponsibility
 ! !
 
+!AbstractBorder methodsFor:'initialization'!
+
+initialize
+    width := 1.
+! !
+
 !AbstractBorder methodsFor:'queries'!
 
 allSidesEqual:aSmallInteger 
@@ -159,7 +171,11 @@
 
 !AbstractBorder class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libview/AbstractBorder.st,v 1.5 2015-01-06 01:41:40 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/AbstractBorder.st,v 1.4 2015-01-05 20:34:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/AbstractBorder.st,v 1.5 2015-01-06 01:41:40 cg Exp $'
 ! !