blob: de52545feb5b0ad9d59dc47a42534b9b1d495853 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
-- File : Prs2d_AspectFramedText.cdl
-- Created : February 2000
-- Author : Tanya COOL
---Copyright: Matra Datavision 2000
class AspectFramedText from Prs2d inherits AspectRoot from Prs2d
---Purpose: defines the attributes when drawing a framed text Presentation.
uses
NameOfColor from Quantity,
WidthOfLine from Aspect,
TypeOfFont from Aspect
is
Create( ColorInd: NameOfColor from Quantity;
FrameColorInd: NameOfColor from Quantity;
FrameWidthInd: WidthOfLine from Aspect;
FontInd: TypeOfFont from Aspect;
aSlant: ShortReal from Standard;
aHScale,aWScale: ShortReal from Standard;
isUnderlined: Boolean from Standard )
returns mutable AspectFramedText from Prs2d;
SetColorOfText( me: mutable; aColor: NameOfColor from Quantity);
SetFrameColor ( me: mutable; aFrameColor: NameOfColor from Quantity);
SetFrameWidth ( me: mutable; aFrameWidth: WidthOfLine from Aspect);
SetFontOfText ( me: mutable; aFont: TypeOfFont from Aspect);
SetSlant ( me: mutable; aSlant: ShortReal from Standard);
SetHScale ( me: mutable; aHScale: ShortReal from Standard);
SetWScale ( me: mutable; aWScale: ShortReal from Standard);
SetUnderlined ( me: mutable; anIsUnderlined:Boolean from Standard);
Values( me;
aColorInd: out NameOfColor from Quantity;
aFrameColorInd: out NameOfColor from Quantity;
aFrameWidthInd: out WidthOfLine from Aspect;
aFontInd: out TypeOfFont from Aspect;
aSlant: out ShortReal from Standard;
aHScale,aWScale: out ShortReal from Standard;
isUnderlined: out Boolean from Standard );
fields
myColor : NameOfColor from Quantity;
myFrameColor : NameOfColor from Quantity;
myFont : TypeOfFont from Aspect;
myFrameWidth : WidthOfLine from Aspect;
mySlant : ShortReal from Standard;
myHScale : ShortReal from Standard;
myWScale : ShortReal from Standard;
myIsUnderlined : Boolean from Standard;
end AspectFramedText from Prs2d;
|
