blob: 66b9d3b17d606ae5a5fca12063e2cb93d6ca5a22 (
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: AppStd_Application.cdl
-- Created: Sep 7 14:59:06 2000
-- Author: TURIN Anatoliy <ati@nnov.matra-dtv.fr>
-- Copyright: Matra Datavision 2000
class Application from AppStd inherits Application from TDocStd
uses MessageDriver from CDM,
SequenceOfExtendedString from TColStd,
ExtendedString from TCollection
is
Create returns mutable Application from AppStd;
MessageDriver(me: mutable)
returns MessageDriver from CDM
is redefined;
Formats(me: mutable; theFormats: out SequenceOfExtendedString from TColStd)
---Purpose: returns supported format for application documents.
is redefined;
ResourcesName (me: mutable)
---Purpose: returns the file name which contains application
-- resources
returns CString from Standard;
fields
myMessageDriver : MessageDriver from CDM;
end Application;
|