7fd59977 |
1 | -- File: SizeSelect.cdl |
2 | -- Created: Fri Dec 1 11:11:11 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | |
8 | class SizeSelect from StepBasic inherits SelectType from StepData |
9 | |
10 | -- <SizeSelect> is an EXPRESS Select Type construct translation. |
11 | -- it gathers : MeasureWithUnit (Entity), PositiveLengthMeasure (Real) |
12 | |
13 | uses |
14 | |
15 | SelectMember from StepData |
16 | |
17 | is |
18 | |
19 | Create returns SizeSelect; |
20 | ---Purpose : Returns a SizeSelect SelectType |
21 | |
22 | CaseNum (me; ent : Transient) returns Integer; |
23 | ---Purpose: Recognizes a TrimmingSelect Kind Entity that is : |
24 | -- 1 -> SizeMember |
25 | -- 0 else (i.e. Real) |
26 | |
27 | NewMember (me) returns SelectMember is redefined; |
28 | ---Purpose : Returns a SizeMember (POSITIVE_LENGTH_MEASURE) as preferred |
29 | |
30 | CaseMem (me; ent : SelectMember) returns Integer is redefined; |
31 | ---Purpose : Recognizes a SelectMember as Real, named as PARAMETER_VALUE |
32 | -- 1 -> PositiveLengthMeasure i.e. Real |
33 | -- 0 else (i.e. Entity) |
34 | |
35 | SetRealValue (me : in out; aReal : Real from Standard); |
36 | |
37 | RealValue (me) returns Real; |
38 | ---Purpose : returns Value as a Real (Null if another type) |
39 | |
40 | end SizeSelect; |
41 | |