"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libview' }"

AbstractBorder subclass:#Border

	instanceVariableNames:'leftColor rightColor topColor bottomColor'

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Support'

!

!Border class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a border holds the values of a view's (or component's) border.

    We have only recently started to change the system to use borders instead of separate

    borderWidth, borderColor, level, shadow- and lightColors.

    Expect more changes here in the near future..

    [see also:]

        SimpleView

    [author:]

        Claus Gittinger

"

!

examples

"

     |v b|

     v := StandardSystemView extent:100@100.

     v openAndWait.

     Delay waitForSeconds:1.

     Delay waitForSeconds:1.

     |v sub1 sub2 sub3|

     v := StandardSystemView extent:200@200.

     v openAndWait.

     sub1 := (View in:v) origin:10@10; corner:90@90.

     sub2 := (View in:v) origin:110@10; corner:190@90.

     sub3 := (View in:v) origin:110@110; corner:190@190.

"

! !

!Border methodsFor:'accessing'!

bottomColor

    "return the value of the instance variable 'bottomColor' (automatically generated)"

    ^ bottomColor

    "Created: 10.2.1997 / 14:51:34 / cg"

!

bottomColor:aColor

    "set the bottomColor"

    bottomColor := aColor

    "Created: 10.2.1997 / 15:37:51 / cg"

!

color:newColor

    "set all four colors"

     leftColor := rightColor := topColor := bottomColor := newColor

    "Created: 10.2.1997 / 15:27:01 / cg"

!

leftColor

    "return the value of the instance variable 'leftColor' (automatically generated)"

    ^ leftColor

    "Created: 10.2.1997 / 14:51:34 / cg"

!

leftColor:aColor

    "set the leftColor"

    leftColor := aColor

    "Created: 10.2.1997 / 15:38:02 / cg"

!

rightColor

    "return the value of the instance variable 'rightColor' (automatically generated)"

    ^ rightColor

    "Created: 10.2.1997 / 14:51:34 / cg"

!

rightColor:aColor

    "set the rightColor"

    rightColor := aColor

    "Created: 10.2.1997 / 15:38:08 / cg"

!

topColor

    "return the value of the instance variable 'topColor' (automatically generated)"

    ^ topColor

    "Created: 10.2.1997 / 14:51:34 / cg"

!

topColor:aColor

    "set the topColor"

    topColor := aColor

    "Created: 10.2.1997 / 15:38:17 / cg"

! !

!Border methodsFor:'displaying'!

displayOn:aGC forDisplayBox:aRectangle

    "display the border represented by the receiver in the given rectangle.

     The gc's state is restored after the drawing."

    width == 0 ifTrue:[ ^ self ].

    oldPaint := aGC paint.

    rL := aRectangle left.

    rT := aRectangle top.

    rR := aRectangle right.

    rB := aRectangle bottom.

    rH := aRectangle height.

    rW := aRectangle width.

    leftColor notNil ifTrue:[

        aGC paint:leftColor.

    ].

    topColor notNil ifTrue:[

        aGC paint:topColor.

    ].

    rightColor notNil ifTrue:[

        aGC paint:rightColor.

    ].

    bottomColor notNil ifTrue:[

    ].

    aGC paint: oldPaint

    "Modified: 10.2.1997 / 15:55:04 / cg"

! !

!Border class methodsFor:'documentation'!

version

!

version_CVS

! !