--- a/AbstractBorder.st	Wed Jun 08 11:39:35 2016 +0200
+++ b/AbstractBorder.st	Wed Jun 08 11:39:49 2016 +0200
@@ -84,6 +84,12 @@
 
 !AbstractBorder methodsFor:'accessing'!
 
+color
+    "get the color; nil if there is no single color"
+
+    ^ nil
+!
+
 color:aColor
     "set the color"