blob: e890a1eef0e3a5556fc4940372c9a74352dfa7c3 (
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
34
35
|
-- File: TDF_DefaultDeltaOnModification.cdl
-- ----------------------------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 Oct 10 1997 Creation
class DefaultDeltaOnModification from TDF
inherits DeltaOnModification from TDF
---Purpose: This class provides a default implementation of a
-- TDF_DeltaOnModification.
uses
Label from TDF,
Attribute from TDF
-- raises
is
Create(anAttribute : Attribute from TDF);
---Purpose: Creates a TDF_DefaultDeltaOnModification.
-- <anAttribute> must be the backup copy.
Apply (me : mutable)
is redefined virtual;
---Purpose: Applies the delta to the attribute.
end DefaultDeltaOnModification;
|