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