From aa453132823179a44ec66a6664dcba0d79cec44a Mon Sep 17 00:00:00 2001
From: szy <szy@pencascade.com>
Date: Mon, 20 Aug 2012 12:56:47 +0400
Subject: [PATCH] 0023306: Failures reading some attributes of BinOcaf document

Saving OCAF attribute TColStd_Array1OfExtendedString to binary file is corrected (missing data field written).
---
 .../BinMDataStd_ExtStringArrayDriver.cxx       | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx b/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
index ee70d9c72f..7befd9d2ab 100755
--- a/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
+++ b/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
@@ -79,17 +79,21 @@ Standard_Boolean BinMDataStd_ExtStringArrayDriver::Paste
   }
 
   if(ok) {
-#ifdef DEB
-  //cout << "CurDocVersion = " << BinMDataStd::DocumentVersion() <<endl;
-#endif
+//#ifdef DEB
+//  cout << "CurDocVersion = " << BinMDataStd::DocumentVersion() <<endl;
+//#endif
     Standard_Boolean aDelta(Standard_False);
     if(BinMDataStd::DocumentVersion() > 2) {
       Standard_Byte aDeltaValue;
-      if (! (theSource >> aDeltaValue))
-	return Standard_False;
+	  if (! (theSource >> aDeltaValue)) {
+//#ifdef DEB
+//      cout <<"DeltaValue = " << (Standard_Integer)aDeltaValue <<endl;
+//#endif
+	    return Standard_False;
+	  }
       else
 	aDelta = (Standard_Boolean)aDeltaValue;
-    }
+	}
     anAtt->SetDelta(aDelta);
   }
   return ok;
@@ -113,4 +117,6 @@ void BinMDataStd_ExtStringArrayDriver::Paste
   theTarget << aFirstInd << aLastInd;
   for (Standard_Integer i = aFirstInd; i <= aLastInd; i ++)
     theTarget << anAtt->Value( i );
+
+  theTarget << (Standard_Byte)anAtt->GetDelta();
 }