7fd59977 |
1 | -- File: PresentationSize.cdl |
2 | -- Created: Fri Dec 1 11:11:25 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class PresentationSize from StepVisual |
8 | |
9 | inherits TShared from MMgt |
10 | |
11 | uses |
12 | |
13 | PresentationSizeAssignmentSelect from StepVisual, |
14 | PlanarBox from StepVisual |
15 | is |
16 | |
17 | Create returns mutable PresentationSize; |
18 | ---Purpose: Returns a PresentationSize |
19 | |
20 | Init (me : mutable; |
21 | aUnit : PresentationSizeAssignmentSelect from StepVisual; |
22 | aSize : mutable PlanarBox from StepVisual) is virtual; |
23 | |
24 | -- Specific Methods for Field Data Access -- |
25 | |
26 | SetUnit(me : mutable; aUnit : PresentationSizeAssignmentSelect); |
27 | Unit (me) returns PresentationSizeAssignmentSelect; |
28 | SetSize(me : mutable; aSize : mutable PlanarBox); |
29 | Size (me) returns mutable PlanarBox; |
30 | |
31 | fields |
32 | |
33 | unit : PresentationSizeAssignmentSelect from StepVisual; -- a SelectType |
34 | size : PlanarBox from StepVisual; |
35 | |
36 | end PresentationSize; |