blob: be2f5d8990b9d244d71efcf471fc17d9f7479be8 (
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
36
37
38
39
40
41
42
43
44
45
46
|
-- File: XCAFApp_Application.cdl
-- Created: Wed May 24 09:27:01 2000
-- Author: data exchange team
-- <det@strelox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 2000
class Application from XCAFApp inherits Application from TDocStd
---Purpose: Implements an Application for the DECAF documents
uses
SequenceOfExtendedString from TColStd,
Document from TDocStd
is
Create returns mutable Application from XCAFApp is protected;
---Purpose: methods from CDF_Application
-- ============================
Formats(me: mutable; Formats: out SequenceOfExtendedString from TColStd)
is redefined;
ResourcesName (me: mutable) returns CString from Standard is redefined;
---Purpose: methods from TDocStd_Application
-- ================================
InitDocument (me; aDoc : Document from TDocStd) is redefined;
---Purpose: Set XCAFDoc_DocumentTool attribute
---API: method for initialisation
GetApplication (myclass) returns Application from XCAFApp;
---Purpose: Initializes (for the first time) and returns the
-- static object (XCAFApp_Application)
-- This is the only valid method to get XCAFApp_Application
-- object, and it should be called at least once before
-- any actions with documents in order to init application
end Application;
|