Class: MacButtonBorder

• Inheritance
• Description
• Class protocol
  • image specs
  • initialization
• Instance protocol
  • accessing-color & font
  • displaying
  • queries
• Examples

Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--MacButtonBorder

Package:

stx:libview

Category:

Graphics-Support

Version:

rev: 1.9 date: 2022/03/08 22:44:30

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.

copyright
COPYRIGHT (c) 2015 by Claus Gittinger / eXept Software AG
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Class protocol:

 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

 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

 initialize

self initializeImages. -- done lazy

 initializeImages

Instance protocol:

 backgroundColor1: aColor

 backgroundColor2: aColor

 displayOn: aGC forDisplayBox: aRectangle

display the borders represented by the receiver in the specified rectangle.
The gc is restored after the draw.

 initializeImages

 margin

Examples:

     |top v b|

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

     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 openAndWaitUntilVisible.

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