Class: BeveledBorder

• Inheritance
• Description
• Class protocol
  • constants
  • instance creation
• Instance protocol
  • accessing
  • displaying
• Examples

Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--BeveledBorder

Package:

stx:libview

Category:

Graphics-Support

Version:

rev: 1.8 date: 2017/02/22 20:20:19

user: cg

file: BeveledBorder.st directory: libview

module: stx stc-classLibrary: libview

Author:

Claus Gittinger

Description:

This will replace the mixture of window-system supported borders and manually
drawn 3D levels (which is ugly, but served me well for almost 20years now).

Class protocol:

 inset

Answer the default beveled border with inset edges.

usage example(s):

self inset

 inset1

Answer the default beveled border with inset edges of thickness 1.

 raised

Answer the default beveled border with raised edges.

 raised1

Answer the default beveled border with raised edges of thickness 1.

 level: aNumber

 level: aNumber color: aColor

Instance protocol:

 color

 color: aColor

 level

(comment from inherited method)
get the 3D level

 level: anInteger

 level: aNumber color: aColor

 displayOn: aGC forDisplayBox: aRectangle

View new
border:(BeveledBorder level:2 color:Color red);
open.

Examples:

     |top v b|

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

     b := BeveledBorder raised1.
     v border:b.
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:2).
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:3).
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:-3).
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:-2).
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:-1).
     Delay waitForSeconds:1.
     v border:(BeveledBorder level:0).

     |top v b|

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

     b := BeveledBorder inset1.
     v border:b.