blob: 75b8af745dda30b87beb257681ce6dd64e9410f8 (
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
|
-- File: TDF_DefaultDeltaOnRemoval.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 DefaultDeltaOnRemoval from TDF
inherits DeltaOnRemoval from TDF
---Purpose: This class provides a default implementation of a
-- TDF_DeltaOnRemoval.
uses
Label from TDF,
Attribute from TDF
-- raises
is
Create(anAttribute : Attribute from TDF);
---Purpose: Creates a TDF_DefaultDeltaOnRemoval.
Apply (me : mutable)
is redefined virtual;
---Purpose: Applies the delta to the attribute.
end DefaultDeltaOnRemoval;
|