--- a/Border.st	Mon Feb 10 15:46:12 1997 +0100
+++ b/Border.st	Mon Feb 10 15:56:16 1997 +0100
@@ -28,6 +28,51 @@
 "
 
 
+!
+
+examples
+"
+     |v b|
+
+     v := StandardSystemView extent:10@10.
+     v openAndWait.
+
+     b := Border width:2 color:Color red.
+     b displayOn:v forDisplayBox:(0@0 corner:9@9).
+
+     Delay waitForSeconds:1.
+     b setLeftColor:Color blue.
+     b displayOn:v forDisplayBox:(0@0 corner:9@9).
+     Delay waitForSeconds:1.
+     b setTopColor:Color green.
+     b displayOn:v forDisplayBox:(0@0 corner:9@9).
+     Delay waitForSeconds:1.
+     b setRightColor:Color magenta.
+     b displayOn:v forDisplayBox:(0@0 corner:9@9).
+
+
+
+     |v b|
+
+     v := StandardSystemView extent:100@100.
+     v openAndWait.
+
+     b := Border width:2 color:Color red.
+     b displayOn:v forDisplayBox:(0@0 corner:99@99).
+
+     Delay waitForSeconds:1.
+     b setLeft:5.
+     v clear.   
+     b displayOn:v forDisplayBox:(0@0 corner:99@99).
+     Delay waitForSeconds:1.
+     b setTop:3.
+     v clear.   
+     b displayOn:v forDisplayBox:(0@0 corner:99@99).
+     Delay waitForSeconds:1.
+     b setRight:1.
+     v clear.   
+     b displayOn:v forDisplayBox:(0@0 corner:99@99).
+"
 ! !
 
 !Border class methodsFor:'instance creation'!
@@ -233,60 +278,39 @@
 
     (l ~~ 0 and: [(paint := self leftColor) notNil]) ifTrue:[
         aGC paint:paint.
-        aGC displayRectangleX:rL
-                            y:rT
-                        width:l
-                       height:rH + 1 - b
+        aGC fillRectangleX:rL
+                         y:rT
+                     width:l
+                    height:rH + 1 - b
     ].
 
     (t ~~ 0 and: [(paint := self topColor) notNil]) ifTrue:[
         aGC paint:paint.
-        aGC displayRectangleX:(rL + l)
-                            y:rT
-                        width:rW - l
-                       height:t
+        aGC fillRectangleX:(rL + l)
+                         y:rT
+                     width:rW - l
+                    height:t
     ].
 
     (r ~~ 0 and: [(paint := self rightColor) notNil]) ifTrue:[
         aGC paint:paint.
-        aGC displayRectangleX:(rR - r)
-                            y:(rT + t)
-                        width:r
-                       height:rH + 1 - t
+        aGC fillRectangleX:(rR - r)
+                         y:(rT + t)
+                     width:r
+                    height:rH + 1 - t
     ].
 
     (b ~~ 0 and: [(paint := self bottomColor) notNil]) ifTrue:[
         aGC paint:paint.
-        aGC displayRectangleX:(rL)
-                            y:(rB + 1 - b)
-                        width:rW - r
-                       height:b
+        aGC fillRectangleX:(rL)
+                         y:(rB + 1 - b)
+                     width:rW - r
+                    height:b
     ].
 
     aGC paint: oldPaint
 
-    "
-     |v b|
-
-     v := StandardSystemView extent:10@10.
-     v openAndWait.
-
-     b := Border width:2 color:Color red.
-     b displayOn:v forDisplayBox:(0@0 corner:9@9).
-
-     Delay waitForSeconds:1.
-     b leftColor:Color blue.
-     b displayOn:v forDisplayBox:(0@0 corner:9@9).
-     Delay waitForSeconds:1.
-     b topColor:Color green.
-     b displayOn:v forDisplayBox:(0@0 corner:9@9).
-     Delay waitForSeconds:1.
-     b rightColor:Color magenta.
-     b displayOn:v forDisplayBox:(0@0 corner:9@9).
-
-    "
-
-    "Modified: 10.2.1997 / 15:30:22 / cg"
+    "Modified: 10.2.1997 / 15:55:04 / cg"
 ! !
 
 !Border methodsFor:'private accessing'!
@@ -347,5 +371,5 @@
 !Border class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.2 1997-02-10 14:45:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Border.st,v 1.3 1997-02-10 14:56:16 cg Exp $'
 ! !