|
Class: MacButtonBorder
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
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.
image specs
-
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
|
initialization
-
initialize
-
self initializeImages. -- done lazy
-
initializeImages
-
accessing-color & font
-
backgroundColor1: aColor
-
-
backgroundColor2: aColor
-
displaying
-
displayOn: aGC forDisplayBox: aRectangle
-
display the borders represented by the receiver in the specified rectangle.
The gc is restored after the draw.
-
initializeImages
-
queries
-
margin
-
|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.
|
|