--- 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 $'
! !