0024070: OpenGL capped object-level clipping planes
[occt.git] / src / MeshVS / MeshVS_SensitiveMesh.cdl
index 2065ad2..873bfb1 100755 (executable)
@@ -30,7 +30,8 @@ uses
   Box2d from Bnd, 
   Location from TopLoc, 
   Lin from gp, 
-  ListOfBox2d from SelectBasics, 
+  ListOfBox2d from SelectBasics,
+  PickArgs from SelectBasics,
   Projector from Select3D      
 is
 
@@ -42,15 +43,12 @@ is
      
   GetConnected( me: mutable;  aLocation  :  Location from TopLoc )
     returns SensitiveEntity from Select3D is redefined; 
-     
-  ComputeDepth( me;  EyeLine  :  Lin from gp ) returns Real from Standard 
-    is redefined;     
-           
-  Matches( me: mutable;  X,Y : Real from Standard;
-                        aTol: Real from Standard;
-                        DMin: out Real from Standard ) returns Boolean  
-    is redefined;
+
+  Matches (me : mutable;
+           thePickArgs : PickArgs from SelectBasics;
+           theMatchDMin, theMatchDepth : out Real from Standard)
+    returns Boolean is redefined;
+
   Matches  ( me: mutable;   XMin, YMin, XMax, YMax  : Real;
                            aTol                    : Real ) returns Boolean  
     is redefined;