Class: RoundButtonBorder

• Inheritance
• Description
• Instance protocol
  • accessing
  • displaying

Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--RoundButtonBorder

Package:

stx:libview

Category:

Graphics-Support

Version:

rev: ? date: ? ?

user: ?

file: ? 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