0024750: Replace instantiations of TCollection generic classes by NCollection templat...

[occt.git] / src / XSControl / XSControl_Reader.cdl

diff --git a/src/XSControl/XSControl_Reader.cdl b/src/XSControl/XSControl_Reader.cdl
old mode 100755 (executable)
new mode 100644 (file)
index 3ab143b..f5a016c
--- a/src/XSControl/XSControl_Reader.cdl
+++ b/src/XSControl/XSControl_Reader.cdl
@@ -1,9 +1,18 @@
--- File:       XSControl_Reader.cdl
--- Created:    Wed May 14 14:32:43 1997
--- Author:     Christian CAILLET
---             <cky@heliox.paris1.matra-dtv.fr>
----Copyright:   Matra Datavision 1997
-
+-- Created on: 1997-05-14
+-- Created by: Christian CAILLET
+-- Copyright (c) 1997-1999 Matra Datavision
+-- Copyright (c) 1999-2014 OPEN CASCADE SAS
+--
+-- This file is part of Open CASCADE Technology software library.
+--
+-- This library is free software; you can redistribute it and/or modify it under
+-- the terms of the GNU Lesser General Public License version 2.1 as published
+-- by the Free Software Foundation, with special exception defined in the file
+-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+-- distribution for complete text of the license and disclaimer of any warranty.
+--
+-- Alternatively, this file may be used under the terms of Open CASCADE
+-- commercial license or contractual agreement.
 
 class Reader  from XSControl
 
@@ -56,7 +65,7 @@ is
     ---Purpose : Creates a Reader from scratch, with a norm name which
     --           identifies a Controller
 
-    Create (WS : mutable WorkSession from XSControl;
+    Create (WS : WorkSession from XSControl;
                 scratch : Boolean = Standard_True) returns Reader;
     ---Purpose : Creates a Reader from an already existing Session, with a
     --           Controller already set
@@ -68,7 +77,7 @@ is
     ---Purpose : Sets a specific norm to <me>
     --           Returns True if done, False if <norm> is not available
 
-    SetWS (me : in out; WS : mutable WorkSession from XSControl;
+    SetWS (me : in out; WS : WorkSession from XSControl;
                 scratch : Boolean = Standard_True);
     ---Purpose : Sets a specific session to <me>