1 -- Created on: 2000-05-24
2 -- Created by: data exchange team
3 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
22 class Application from XCAFApp inherits Application from TDocStd
24 ---Purpose: Implements an Application for the DECAF documents
27 SequenceOfExtendedString from TColStd,
32 Create returns mutable Application from XCAFApp is protected;
35 ---Purpose: methods from CDF_Application
36 -- ============================
39 Formats(me: mutable; Formats: out SequenceOfExtendedString from TColStd)
43 ResourcesName (me: mutable) returns CString from Standard is redefined;
45 ---Purpose: methods from TDocStd_Application
46 -- ================================
48 InitDocument (me; aDoc : Document from TDocStd) is redefined;
49 ---Purpose: Set XCAFDoc_DocumentTool attribute
51 ---API: method for initialisation
53 GetApplication (myclass) returns Application from XCAFApp;
54 ---Purpose: Initializes (for the first time) and returns the
55 -- static object (XCAFApp_Application)
56 -- This is the only valid method to get XCAFApp_Application
57 -- object, and it should be called at least once before
58 -- any actions with documents in order to init application