eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'RoundButtonBorder':

Home

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

Class: RoundButtonBorder


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:

accessing
o  color
the color of the border

o  color: aColor
set the color of the border

o  width

displaying
o  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).



ST/X 7.1.0.0; WebServer 1.663 at exept.de:8081; Wed, 19 Sep 2018 06:55:47 GMT