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
7 class PresentationSize from StepVisual
9 inherits TShared from MMgt
13 PresentationSizeAssignmentSelect from StepVisual,
14 PlanarBox from StepVisual
17 Create returns mutable PresentationSize;
18 ---Purpose: Returns a PresentationSize
21 aUnit : PresentationSizeAssignmentSelect from StepVisual;
22 aSize : mutable PlanarBox from StepVisual) is virtual;
24 -- Specific Methods for Field Data Access --
26 SetUnit(me : mutable; aUnit : PresentationSizeAssignmentSelect);
27 Unit (me) returns PresentationSizeAssignmentSelect;
28 SetSize(me : mutable; aSize : mutable PlanarBox);
29 Size (me) returns mutable PlanarBox;
33 unit : PresentationSizeAssignmentSelect from StepVisual; -- a SelectType
34 size : PlanarBox from StepVisual;