Class: RoundButtonBorder

• Inheritance
• Description
• Instance protocol
  • accessing
  • displaying

Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--RoundButtonBorder

Package:

stx:libview

Category:

Graphics-Support

Version:

rev: 1.5 date: 2017/02/22 20:18:44

user: cg

file: RoundButtonBorder.st directory: libview

module: stx stc-classLibrary: libview

Author:

Claus Gittinger

Description:

experimental

|v b|

v := View new extent:100@100; openAndWait.
b := RoundButtonBorder new.
b width:1 color:(Color rgbValue:16r707070).
b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).
Delay waitForSeconds:3.

b width:1 color:(Color rgbValue:16r2C628B).
b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).
Delay waitForSeconds:3.

b width:1 color:(Color rgbValue:16r3C7FB1).
b displayOn:v forDisplayBox:((0@0 corner:v extent) insetBy:10).

Instance protocol:

 color

the color of the border

 color: aColor

set the color of the border

 width

 displayOn: aGC forDisplayBox: aRectangle

|v b|

v := View new openAndWait.
b := RoundButtonBorder width:2 color:Color grey.
b displayOn:v forDisplayBox:(0@0 corner:v extent).