--- a/SimpleBorder.st	Thu Oct 29 14:52:02 2009 +0100
+++ b/SimpleBorder.st	Thu Oct 29 16:13:32 2009 +0100
@@ -48,11 +48,13 @@
 !SimpleBorder methodsFor:'accessing'!
 
 color
+    "the color of the border"
+
     ^ color
 !
 
 color:aColor
-    "set the width"
+    "set the color of the border"
 
     width ~~ 0 ifTrue:[
         self assert:aColor notNil.
@@ -76,5 +78,5 @@
 !SimpleBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.4 2009-10-24 14:03:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.5 2009-10-29 15:13:32 cg Exp $'
 ! !