7fd59977 |
1 | -- File: IFSelect_SignValidity.cdl |
2 | -- Created: Fri Jan 26 18:15:50 1996 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@fidox> |
5 | ---Copyright: Matra Datavision 1996 |
6 | |
7 | |
8 | class SignValidity from IFSelect inherits Signature |
9 | |
10 | ---Purpose : This Signature returns the Validity Status of an entity, as |
11 | -- deducted from data in the model : it can be |
12 | -- "OK" "Unknown" "Unloaded" "Syntactic Fail"(but loaded) |
13 | -- "Syntactic Warning" "Semantic Fail" "Semantic Warning" |
14 | |
15 | |
16 | uses CString, Transient, InterfaceModel |
17 | |
18 | is |
19 | |
20 | Create returns mutable SignValidity; |
21 | ---Purpose : Returns a SignValidity |
22 | |
23 | CVal (myclass; ent : any Transient; model : InterfaceModel) returns CString; |
24 | ---Purpose : Returns the Signature for a Transient object, as a validity |
25 | -- deducted from data (reports) stored in the model. |
26 | -- Class method, can be called by any one |
27 | |
28 | Value (me; ent : any Transient; model : InterfaceModel) returns CString; |
29 | ---Purpose : Returns the Signature for a Transient object, as a validity |
30 | -- deducted from data (reports) stored in the model |
31 | -- Calls the class method CVal |
32 | |
33 | end SignValidity; |