mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
6d8f9f4a49
Add support of Message_ProgressIndicator in BinTools classes. Add support of Message_ProgressIndicator with possibility of user break in methods of opening and saving TDocStd_Application. Add tests of ProgressIndicator in TDocStd_Applacation.
42 lines
697 B
Plaintext
42 lines
697 B
Plaintext
# 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
|
|
}
|