|
Class: RoundedBorder
Object
|
+--AbstractBorder
|
+--SimpleBorder
|
+--RoundedBorder
- Package:
- stx:libview
- Category:
- Graphics-Support
- Version:
- rev:
1.3
date: 2018/07/28 08:08:22
- user: cg
- file: RoundedBorder.st directory: libview
- module: stx stc-classLibrary: libview
- Author:
- Claus Gittinger
a rounded border as in modern yosemite and new adwaita
Border
image specs
-
templateBottomLeftImage
-
self templateBottomLeftImage
-
templateBottomRightImage
-
self templateBottomRightImage
-
templateTopLeftImage
-
TemplateTopLeft := TemplateTopRight := nil.
TemplateBottomLeft := TemplateBottomRight := nil.
-
templateTopRightImage
-
self templateTopRightImage
-
topLeftImageUnfilledMasked
-
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
self topLeftImageUnfilledMasked inspect
ImageEditor openOnClass:self andSelector:#topLeftImageUnfilledMasked
Icon flushCachedIcons
|
-
topLeftImageUnfilledMasked2
-
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
self topLeftImageUnfilledMasked2 inspect
ImageEditor openOnClass:self andSelector:#topLeftImageUnfilledMasked2
Icon flushCachedIcons
|
-
topLeftImageUnfilledMasked3
-
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
self topLeftImageUnfilledMasked3 inspect
ImageEditor openOnClass:self andSelector:#topLeftImageUnfilledMasked3
Icon flushCachedIcons
|
-
topLeftImageUnfilledMasked4
-
This resource specification was automatically generated
by the ImageEditor of ST/X.
usage example(s):
self topLeftImageUnfilledMasked4 inspect
ImageEditor openOnClass:self andSelector:#topLeftImageUnfilledMasked4
Icon flushCachedIcons
|
displaying
-
displayOn: aGC forDisplayBox: aRectangle
-
private
-
makeImages
-
|v b|
v := StandardSystemView extent:200@100.
v openAndWait.
b := RoundedBorder width:5 color:Color red.
b displayOn:v forDisplayBox:(0@0 extent:100@100).
|
|t v b|
t := StandardSystemView extent:200@100.
t viewBackground:Color green.
v := View in:t.
v viewBackground:Color red.
v origin:10@10 corner:90@90.
t openAndWait.
b := RoundedBorder width:10 color:Color red.
v border:b
|
|