From 3be25c11705b931ff623f372a24e3e1b2203899c Mon Sep 17 00:00:00 2001
From: kgv <kgv@opencascade.com>
Date: Thu, 23 Sep 2021 23:52:42 +0300
Subject: [PATCH] 0032585: Data Exchange, RWGltf_CafWriter - include OCCT
 version

---
 src/RWGltf/RWGltf_CafWriter.cxx | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/RWGltf/RWGltf_CafWriter.cxx b/src/RWGltf/RWGltf_CafWriter.cxx
index b54198fba7..301c866674 100644
--- a/src/RWGltf/RWGltf_CafWriter.cxx
+++ b/src/RWGltf/RWGltf_CafWriter.cxx
@@ -31,6 +31,7 @@
 #include <RWGltf_GltfSceneNodeMap.hxx>
 #include <RWMesh.hxx>
 #include <RWMesh_FaceIterator.hxx>
+#include <Standard_Version.hxx>
 #include <TDataStd_Name.hxx>
 #include <TDF_Tool.hxx>
 #include <TDocStd_Document.hxx>
@@ -1207,7 +1208,7 @@ void RWGltf_CafWriter::writeAsset (const TColStd_IndexedDataMapOfStringString& t
   myWriter->Key    (RWGltf_GltfRootElementName (RWGltf_GltfRootElement_Asset));
   myWriter->StartObject();
   myWriter->Key    ("generator");
-  myWriter->String ("Open CASCADE Technology [dev.opencascade.org]");
+  myWriter->String ("Open CASCADE Technology " OCC_VERSION_STRING " [dev.opencascade.org]");
   myWriter->Key    ("version");
   myWriter->String ("2.0"); // glTF format version