18d715bd |
1 | puts "============" |
2 | puts "OCC23670" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################################ |
6 | # Support for multiple 3D views |
7 | ############################################################################ |
8 | |
9 | #test case for vinit, vclose and vviewlist commands |
10 | #create view with default name Driver1/Viewer1/View1 |
11 | vinit |
12 | vinit MyDriver/MyViewer/View1 |
13 | vinit MyDriver/MyViewer/MyView |
14 | #close MyDriver/MyViewer/View1 |
15 | vclose View1 |
16 | set ResultBefore [vviewlist] |
17 | vinit Driver1/Viewer1/MyView |
18 | vclose MyView |
19 | vinit Driver1/Viewer1/View2 |
20 | |
21 | set ResultAfter [vviewlist] |
22 | set Result [string equal $ResultBefore $ResultAfter] |
23 | #compare outputs of two vviewlist calls |
24 | if {$Result != 0} { |
25 | puts "Error. Different view lists are equal." |
26 | } |
27 | |
28 | set only_screen 1 |