eXept Software AG Logo

Smalltalk/X Webserver

Documentation of class 'MacButtonBorder':

Home

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

Class: MacButtonBorder


Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--MacButtonBorder

Package:
stx:libview
Category:
Graphics-Support
Version:
rev: 1.7 date: 2017/11/28 18:17:55
user: cg
file: MacButtonBorder.st directory: libview
module: stx stc-classLibrary: libview

Description:


an as yet unused and unfinished attempt to provide a mac-osx like
button border. These will look like mac buttons up to maverick.
To be continued.


Class protocol:

image specs
o  bottomLeftImage
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
     self bottomLeftImage inspect
     ImageEditor openOnClass:self andSelector:#bottomLeftImage
     Icon flushCachedIcons

o  topLeftImage
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
     self topLeftImage inspect
     ImageEditor openOnClass:self andSelector:#topLeftImage
     Icon flushCachedIcons

initialization
o  initialize
self initializeImages. -- done lazy

o  initializeImages


Instance protocol:

accessing-color & font
o  backgroundColor1: aColor

o  backgroundColor2: aColor

displaying
o  displayOn: aGC forDisplayBox: aRectangle
display the borders represented by the receiver in the specified rectangle.
The gc is restored after the draw.

o  initializeImages

queries
o  margin


Examples:


     |top v b|

     top := StandardSystemView extent:100@100.
     v := View origin:10@10 corner:90@30 in:top.
     top openAndWait.

     b := MacButtonBorder new.
     v border:b.
     |top v1 v2 b|

     top := StandardSystemView extent:100@200.
     v1 := View origin:10@10 corner:90@30 in:top.
     v2 := View origin:10@100 corner:90@150 in:top.
     top openAndWait.

     b := MacButtonBorder new.
     v1 border:b.
     v2 border:b.


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