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