1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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
|
