7fd59977 |
1 | -- File: FileDescription.cdl |
2 | -- Created: Thu Jun 16 18:05:54 1994 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class FileDescription from HeaderSection |
8 | |
9 | inherits TShared from MMgt |
10 | |
11 | uses |
12 | |
13 | HArray1OfHAsciiString from Interface, |
14 | HAsciiString from TCollection |
15 | is |
16 | |
17 | Create returns mutable FileDescription; |
18 | ---Purpose: Returns a FileDescription |
19 | |
20 | Init (me : mutable; |
21 | aDescription : mutable HArray1OfHAsciiString from Interface; |
22 | aImplementationLevel : mutable HAsciiString from TCollection); |
23 | |
24 | -- Specific Methods for Field Data Access -- |
25 | |
26 | SetDescription(me : mutable; aDescription : mutable HArray1OfHAsciiString); |
27 | Description (me) returns mutable HArray1OfHAsciiString; |
28 | DescriptionValue (me; num : Integer) returns mutable HAsciiString; |
29 | NbDescription (me) returns Integer; |
30 | SetImplementationLevel(me : mutable; aImplementationLevel : mutable HAsciiString); |
31 | ImplementationLevel (me) returns mutable HAsciiString; |
32 | |
33 | fields |
34 | |
35 | description : HArray1OfHAsciiString from Interface; |
36 | implementationLevel : HAsciiString from TCollection; |
37 | |
38 | end FileDescription; |