eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'Border':

Home

Documentation
www.exept.de
Everywhere
for:
[back]

Class: Border


Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--Border

Package:
stx:libview
Category:
Graphics-Support
Version:
rev: 1.12 date: 2017/02/22 20:20:17
user: cg
file: Border.st directory: libview
module: stx stc-classLibrary: libview
Author:
Claus Gittinger

Description:


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..


Related information:

    SimpleView

Instance protocol:

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

o  bottomColor: aColor
set the bottomColor

o  bottomWidth

o  bottomWidth: something

o  color: newColor
set all four colors

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

o  leftColor: aColor
set the leftColor

o  leftWidth

o  leftWidth: something

o  leftWidth: leftWidthArg rightWidth: rightWidthArg topWidth: topWidthArg bottomWidth: bottomWidthArg

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

o  rightColor: aColor
set the rightColor

o  rightWidth

o  rightWidth: something

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

o  topColor: aColor
set the topColor

o  topWidth

o  topWidth: something

o  width: w

displaying
o  displayOn: aGC forDisplayBox: aRectangle
display the border represented by the receiver in the given rectangle.
The gc's state is restored after the drawing.

initialization
o  initialize

queries
o  bottomMargin

o  leftMargin

o  rightMargin

o  topMargin


Examples:


     |v b|

     v := StandardSystemView extent:100@100.
     v openAndWait.

     b := Border width:1 color:Color red.
     v border:b
     |v b|

     v := StandardSystemView extent:100@100.
     v openAndWait.

     b := Border width:10 color:Color red.
     b displayOn:v forDisplayBox:(0@0 corner:90@90).

     Delay waitForSeconds:1.
     b leftColor:Color blue.
     b displayOn:v forDisplayBox:(0@0 corner:90@90).
     Delay waitForSeconds:1.
     b topColor:Color green.
     b displayOn:v forDisplayBox:(0@0 corner:90@90).
     Delay waitForSeconds:1.
     b rightColor:Color yellow.
     b displayOn:v forDisplayBox:(0@0 corner:90@90).
     |v b|

     v := StandardSystemView extent:100@100.
     v openAndWait.

     b := Border width:10 color:Color red.
     b topColor:Color red.
     b leftColor:Color blue.
     b topColor:Color green.
     b rightColor:Color yellow.
     b leftWidth:10 rightWidth:20 topWidth:5 bottomWidth:15.

     b displayOn:v forDisplayBox:(0@0 corner:90@90).
     |v sub1 sub2 sub3|

     v := StandardSystemView extent:200@200.
     v openAndWait.

     sub1 := (View in:v) origin:10@10; corner:90@90.
     sub1 border:(SimpleBorder width:10 color:Color red ).
     sub1 realize.
     sub2 := (View in:v) origin:110@10; corner:190@90.
     sub2 border:(Border new width:10; color:Color blue; leftColor:Color red; rightColor:Color red ).
     sub2 realize.
     sub3 := (View in:v) origin:110@110; corner:190@190.
     sub3 border:(SimpleBorder width:10 color:Color green ).
     sub3 realize.

     Delay waitForSeconds:1.
     sub3 border:(Border new width:10; color:Color yellow; leftColor:Color red; rightColor:Color red ).



ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 29 Mar 2024 12:26:05 GMT