0027604: Application Framework - memory is not released after closing XBF file
[occt.git] / src / BinDrivers / BinDrivers_DocumentRetrievalDriver.cxx
index f953dbc..69d0a44 100644 (file)
@@ -91,6 +91,23 @@ void BinDrivers_DocumentRetrievalDriver::CheckShapeSection(
 {}
 
 //=======================================================================
+//function : Clear
+//purpose  : 
+//=======================================================================
+void BinDrivers_DocumentRetrievalDriver::Clear()
+{
+  // Clear NamedShape driver
+  Handle(BinMDF_ADriver) aDriver;
+  if (myDrivers->GetDriver(STANDARD_TYPE(TNaming_NamedShape), aDriver))
+  {
+    Handle(BinMNaming_NamedShapeDriver) aNamedShapeDriver =
+      Handle(BinMNaming_NamedShapeDriver)::DownCast(aDriver);
+    aNamedShapeDriver->Clear();
+  }
+  BinLDrivers_DocumentRetrievalDriver::Clear();
+}
+
+//=======================================================================
 //function : PropagateDocumentVersion
 //purpose  : 
 //=======================================================================