Smalltalk/X Webserver

Documentation of class 'BeveledBorder':

Class: BeveledBorder

Inheritance
Class protocol
- constants
- instance creation
Instance protocol
- accessing
- displaying
Examples

Inheritance:

   Object
   |
   +--AbstractBorder
      |
      +--BeveledBorder

Package:: stx:libview

Category:: Graphics-Support

Version:: rev: ? date: ? ?; user: ?; file: ? directory: libview; module: stx stc-classLibrary: libview

Class protocol:

constants

inset: Answer the default beveled border with inset edges.
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.

instance creation

level: aNumber
level: aNumber color: aColor

Instance protocol:

accessing

color: aColor
level
level: anInteger
level: aNumber color: aColor

displaying

displayOn: aGC forDisplayBox: aRectangle

|v b| v := StandardSystemView extent:10@10. v openAndWait. b := BeveledBorder raised. b displayOn:v forDisplayBox:(0@0 corner:9@9). |v b| v := StandardSystemView extent:100@100. v openAndWait. b := BeveledBorder inset1. b displayOn:v forDisplayBox:(0@0 corner:99@99).