0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / begin
diff --git a/tests/caf/progress/begin b/tests/caf/progress/begin
new file mode 100644 (file)
index 0000000..61b8906
--- /dev/null
@@ -0,0 +1,41 @@
+# begin
+
+if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
+  pload TOPTEST
+}
+
+proc CreateBinDoc {} {
+  global imagedir casename
+  # Create binary document
+  NewDocument DocBin BinOcaf
+
+  # Fill document by box
+  box b 1 1 1 
+  SetShape DocBin 0:1 b
+
+  # Save document
+  set bDoc "${imagedir}/$casename.cbf"
+  SaveAs DocBin $bDoc
+
+  # Close document
+  Close DocBin
+  return $bDoc
+}
+
+proc CreateXmlDoc {} {
+  global imagedir casename
+  # Create xml document
+  NewDocument DocXml XmlOcaf
+
+  # Fill document by box
+  box b 1 1 1 
+  SetShape DocXml 0:1 b
+
+  # Save document
+  set xDoc "${imagedir}/$casename.xml"
+  SaveAs DocXml $xDoc
+
+  # Close document
+  Close DocXml
+  return $xDoc
+}