--- a/BeveledBorder.st	Tue Jun 07 12:12:06 2016 +0200
+++ b/BeveledBorder.st	Wed Jun 08 11:39:35 2016 +0200
@@ -14,7 +14,7 @@
 "{ NameSpace: Smalltalk }"
 
 AbstractBorder subclass:#BeveledBorder
-	instanceVariableNames:'shadowColor lightColor level'
+	instanceVariableNames:'color shadowColor lightColor level'
 	classVariableNames:'RaisedBorder2 InsetBorder2 RaisedBorder1 InsetBorder1'
 	poolDictionaries:''
 	category:'Graphics-Support'
@@ -145,7 +145,12 @@
 
 !BeveledBorder methodsFor:'accessing'!
 
+color
+    ^ color.
+!
+
 color:aColor
+    color := aColor.
     shadowColor := aColor slightlyDarkened.
     lightColor := aColor slightlyLightened.
 !
@@ -221,6 +226,6 @@
 !BeveledBorder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/BeveledBorder.st,v 1.6 2015-03-25 14:27:20 cg Exp $'
+    ^ '$Header$'
 ! !