X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=src%2FBinDrivers%2FBinDrivers_DocumentRetrievalDriver.cxx;h=69d0a444f47d539600bcc7da8d56c98a60e428ef;hb=bf95447514333e8f9f9ee167d580b2877dae521f;hpb=c8c250a59dd6f430fd65397a3bfe8ba133871081

diff --git a/src/BinDrivers/BinDrivers_DocumentRetrievalDriver.cxx b/src/BinDrivers/BinDrivers_DocumentRetrievalDriver.cxx
index f953dbc89c..69d0a444f4 100644
--- a/src/BinDrivers/BinDrivers_DocumentRetrievalDriver.cxx
+++ b/src/BinDrivers/BinDrivers_DocumentRetrievalDriver.cxx
@@ -90,6 +90,23 @@ void BinDrivers_DocumentRetrievalDriver::CheckShapeSection(
 				 	         Standard_IStream& /*IS*/)
 {}
 
+//=======================================================================
+//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  :