--- a/Border.st	Wed Jan 19 10:38:02 2000 +0100
+++ b/Border.st	Sat Jan 22 20:45:36 2000 +0100
@@ -315,6 +315,14 @@
 
 !Border methodsFor:'private accessing'!
 
+setBorderColor:aColor
+     leftColor := rightColor := topColor := bottomColor := aColor
+!
+
+setBorderWidth:aWidth
+     left := right := top := bottom := aWidth.
+!
+
 setBorderWidth:aWidth color:aColor
      left := right := top := bottom := aWidth.
      leftColor := rightColor := topColor := bottomColor := aColor
@@ -371,5 +379,5 @@
 !Border class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.3 1997-02-10 14:56:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.4 2000-01-22 19:45:36 cg Exp $'
 ! !