7fd59977 |
1 | -- File: AppParCurves_ConstraintCouple.cdl |
2 | -- Created: Wed Feb 24 16:50:46 1993 |
3 | -- Author: Laurent PAINNOT |
4 | -- <lpa@phobox> |
5 | ---Copyright: Matra Datavision 1993 |
6 | |
7 | |
8 | class ConstraintCouple from AppParCurves |
9 | ---Purpose: associates an index and a constraint for an object. |
10 | -- This couple is used by AppDef_TheVariational when performing approximations. |
11 | uses Constraint from AppParCurves |
12 | |
13 | is |
14 | |
15 | Create returns ConstraintCouple; |
16 | ---Purpose: returns an indefinite ConstraintCouple. |
17 | |
18 | Create(TheIndex: Integer; Cons: Constraint) |
19 | ---Purpose: Create a couple the object <Index> will have the |
20 | -- constraint <Cons>. |
21 | |
22 | returns ConstraintCouple; |
23 | |
24 | |
25 | Index(me) |
26 | ---Purpose: returns the index of the constraint object. |
27 | |
28 | returns Integer |
29 | is static; |
30 | |
31 | |
32 | Constraint(me) |
33 | ---Purpose: returns the constraint of the object. |
34 | |
35 | returns Constraint |
36 | is static; |
37 | |
38 | |
39 | SetIndex(me: in out; TheIndex: Integer) |
40 | ---Purpose: Changes the index of the constraint object. |
41 | |
42 | is static; |
43 | |
44 | |
45 | SetConstraint(me: in out; Cons: Constraint) |
46 | ---Purpose: Changes the constraint of the object. |
47 | |
48 | is static; |
49 | |
50 | |
51 | fields |
52 | |
53 | myIndex: Integer; |
54 | myConstraint: Constraint from AppParCurves; |
55 | |
56 | end ConstraintCouple; |