mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-30 12:14:08 +03:00
18d715bde0
bugs/end script was edited to dump results from all opened views; duplicated vinit was deleted from bug625. QABugs::OCC280() was edited to work with multiviews;ViewerInit() method was corrected. vviewlist command was modificated to output string. Small corrections Compile errors were corrected
29 lines
776 B
Plaintext
29 lines
776 B
Plaintext
puts "============"
|
|
puts "OCC23670"
|
|
puts "============"
|
|
puts ""
|
|
############################################################################
|
|
# Support for multiple 3D views
|
|
############################################################################
|
|
|
|
#test case for vinit, vclose and vviewlist commands
|
|
#create view with default name Driver1/Viewer1/View1
|
|
vinit
|
|
vinit MyDriver/MyViewer/View1
|
|
vinit MyDriver/MyViewer/MyView
|
|
#close MyDriver/MyViewer/View1
|
|
vclose View1
|
|
set ResultBefore [vviewlist]
|
|
vinit Driver1/Viewer1/MyView
|
|
vclose MyView
|
|
vinit Driver1/Viewer1/View2
|
|
|
|
set ResultAfter [vviewlist]
|
|
set Result [string equal $ResultBefore $ResultAfter]
|
|
#compare outputs of two vviewlist calls
|
|
if {$Result != 0} {
|
|
puts "Error. Different view lists are equal."
|
|
}
|
|
|
|
set only_screen 1
|