0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / begin
1 # begin
2
3 if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
4   pload TOPTEST
5 }
6
7 proc CreateBinDoc {} {
8   global imagedir casename
9   # Create binary document
10   NewDocument DocBin BinOcaf
11
12   # Fill document by box
13   box b 1 1 1 
14   SetShape DocBin 0:1 b
15
16   # Save document
17   set bDoc "${imagedir}/$casename.cbf"
18   SaveAs DocBin $bDoc
19
20   # Close document
21   Close DocBin
22   return $bDoc
23 }
24
25 proc CreateXmlDoc {} {
26   global imagedir casename
27   # Create xml document
28   NewDocument DocXml XmlOcaf
29
30   # Fill document by box
31   box b 1 1 1 
32   SetShape DocXml 0:1 b
33
34   # Save document
35   set xDoc "${imagedir}/$casename.xml"
36   SaveAs DocXml $xDoc
37
38   # Close document
39   Close DocXml
40   return $xDoc
41 }