|
Class: Border
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
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..
SimpleView
accessing
-
bottomColor
-
return the value of the instance variable 'bottomColor' (automatically generated)
-
bottomColor: aColor
-
set the bottomColor
-
bottomWidth
-
-
bottomWidth: something
-
-
color: newColor
-
set all four colors
-
leftColor
-
return the value of the instance variable 'leftColor' (automatically generated)
-
leftColor: aColor
-
set the leftColor
-
leftWidth
-
-
leftWidth: something
-
-
leftWidth: leftWidthArg rightWidth: rightWidthArg topWidth: topWidthArg bottomWidth: bottomWidthArg
-
-
rightColor
-
return the value of the instance variable 'rightColor' (automatically generated)
-
rightColor: aColor
-
set the rightColor
-
rightWidth
-
-
rightWidth: something
-
-
topColor
-
return the value of the instance variable 'topColor' (automatically generated)
-
topColor: aColor
-
set the topColor
-
topWidth
-
-
topWidth: something
-
-
width: w
-
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.
initialization
-
initialize
-
queries
-
bottomMargin
-
-
leftMargin
-
-
rightMargin
-
-
topMargin
-
|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 ).
|
|