0024430: vviewlist draw command does not added name of viewer created by XShow draw...
[occt.git] / tests / bugs / xde / bug24430
1 puts "============"
2 puts "OCC24430"
3 puts "============"
4 puts ""
5 #######################################################################################
6 # vviewlist draw command does not added name of viewer created by XShow draw command
7 #######################################################################################
8
9 pload DCAF
10 NewDocument D XmlXCAF
11 ReadIges D [locate_data_file bug23921_case2.igs]
12
13 XShow D
14 set info [vviewlist long]
15 if { $info == "" } {
16   puts "Error: viewer name was not added"
17 } else {
18   puts "OK: viewer name was added"
19 }
20
21 set only_screen 1