--- a/SimpleBorder.st	Sat Oct 24 16:02:17 2009 +0200
+++ b/SimpleBorder.st	Sat Oct 24 16:03:56 2009 +0200
@@ -54,6 +54,9 @@
 color:aColor
     "set the width"
 
+    width ~~ 0 ifTrue:[
+        self assert:aColor notNil.
+    ].
     color := aColor
 ! !
 
@@ -62,7 +65,7 @@
 displayOn:aGC forDisplayBox:aRectangle
     |oldPaint|
 
-    color isNil ifTrue:[^ self].
+    color isNil ifTrue:[ ^ self].
 
     oldPaint := aGC paint.
     aGC paint:color.
@@ -73,5 +76,5 @@
 !SimpleBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.3 2009-10-24 10:07:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleBorder.st,v 1.4 2009-10-24 14:03:56 cg Exp $'
 ! !