From c0e748333f5ec277b610e61f57d37f5780cffb5f Mon Sep 17 00:00:00 2001
From: jfa <jfa@opencascade.com>
Date: Tue, 23 Mar 2010 11:54:42 +0000
Subject: [PATCH] Mantis issue 0020706: EDF 1263 GEOM: Suppress faces does
 notremove faces and adds some more.

---
 src/GEOMImpl/GEOMImpl_HealingDriver.cxx | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/GEOMImpl/GEOMImpl_HealingDriver.cxx b/src/GEOMImpl/GEOMImpl_HealingDriver.cxx
index cc54d8189..6dd8160f6 100644
--- a/src/GEOMImpl/GEOMImpl_HealingDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_HealingDriver.cxx
@@ -26,6 +26,8 @@
 #include <GEOMImpl_IHealing.hxx>
 #include <GEOM_Function.hxx>
 
+#include <GEOMImpl_GlueDriver.hxx>
+
 #include <ShHealOper_ShapeProcess.hxx>
 #include <ShHealOper_RemoveFace.hxx>
 #include <ShHealOper_CloseContour.hxx>
@@ -42,6 +44,8 @@
 #include <TopoDS_Iterator.hxx>
 #include <TopTools_IndexedMapOfShape.hxx>
 
+#include <Precision.hxx>
+
 #include <StdFail_NotDone.hxx>
 
 //=======================================================================
@@ -261,6 +265,11 @@ Standard_Boolean GEOMImpl_HealingDriver::SuppressFaces (GEOMImpl_IHealing* theHI
       aShapesFaces.Append(aFace);
     }
     SuppressFacesRec(aShapesFaces, theOriginalShape, theOutShape);
+    if ((theOriginalShape.ShapeType() == TopAbs_COMPOUND ||
+         theOriginalShape.ShapeType() == TopAbs_COMPSOLID)) {
+      TopoDS_Shape aSh = theOutShape;
+      theOutShape = GEOMImpl_GlueDriver::GlueFaces(aSh, Precision::Confusion(), Standard_True);
+    }
   }
 
   return Standard_True;
-- 
2.39.2