0024023: Revamp the OCCT Handle -- ambiguity
[occt.git] / src / AIS / AIS_Line.cdl
old mode 100755 (executable)
new mode 100644 (file)
index f644939..02bee35
@@ -1,10 +1,18 @@
--- File:       AIS_Line.cdl
--- Created:    Tue Jan 21 11:45:01 1997
--- Author:     Prestataire Christiane ARMAND
---             <car@chamalox.paris1.matra-dtv.fr>
---   GG  :  GER61351 17/11/1999 Change SetColor() with a compatible Quantity_Color instead
---                                    the restricted NameOfColor.
----Copyright:   Matra Datavision 1997
+-- Created on: 1997-01-21
+-- Created by: Prestataire Christiane ARMAND
+-- 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 Line from AIS inherits InteractiveObject from AIS
 
@@ -21,43 +29,35 @@ uses
     Selection             from SelectMgr,
     Projector             from Prs3d,
     Transformation        from Geom,
-    PresentationManager2d from PrsMgr,
-    GraphicObject         from Graphic2d,    
     Line                  from AIS,
     KindOfInteractive     from AIS
 
 is
     Create(aLine : Line from Geom) 
-    returns mutable Line from AIS;
+    returns Line from AIS;
        ---Purpose: Initializes the line aLine.
         
     Create(aStartPoint : Point from Geom;
           aEndPoint : Point from Geom) 
-    returns mutable Line from AIS;
+    returns Line from AIS;
        ---Purpose: Initializes a starting point aStartPoint
        --   and a finishing point aEndPoint for the line. 
  
     Compute(me            : mutable;
            aPresentationManager: PresentationManager3d from PrsMgr;
-           aPresentation : mutable Presentation from Prs3d;
+           aPresentation : Presentation from Prs3d;
            aMode         : Integer from Standard = 0) 
     is redefined static  private;
     
     Compute(me:mutable;
                aProjector: Projector from Prs3d;
-                aPresentation: mutable Presentation from Prs3d)
-    is redefined static private;     
-
-    Compute(me:mutable;
-           aPresentationManager: PresentationManager2d from PrsMgr;
-            aPresentation: mutable GraphicObject from Graphic2d;
-            aMode: Integer from Standard = 0)
-    is redefined static private;       
+                aPresentation: Presentation from Prs3d)
+    is redefined static private;
 
     Compute(me            : mutable;
             aProjector    : Projector from Prs3d;
             aTrsf         : Transformation from Geom;
-            aPresentation : mutable Presentation from Prs3d)
+            aPresentation : Presentation from Prs3d)
     is redefined;
        ---Purpose: computes the presentation according to a point of view
        --          given by <aProjector>.
@@ -70,7 +70,7 @@ is
 -- Methods from SelectableObject
 
     ComputeSelection(me         : mutable;
-                    aSelection : mutable Selection from SelectMgr;
+                    aSelection : Selection from SelectMgr;
                     aMode      : Integer from Standard)is private;
 
  
@@ -124,19 +124,19 @@ is
 
 
     ComputeInfiniteLine(me: mutable;
-                        aPresentation : mutable Presentation from Prs3d)
+                        aPresentation : Presentation from Prs3d)
     is private;
      
     ComputeSegmentLine(me: mutable;
-                       aPresentation : mutable Presentation from Prs3d)
+                       aPresentation : Presentation from Prs3d)
     is private;
 
     ComputeInfiniteLineSelection(me: mutable;
-                                 aSelection : mutable Selection from SelectMgr)
+                                 aSelection : Selection from SelectMgr)
     is private;
      
     ComputeSegmentLineSelection(me: mutable;
-                                aSelection : mutable Selection from SelectMgr)
+                                aSelection : Selection from SelectMgr)
     is private;
 
 fields