0024391: Erased AIS object can not be displayed in AIS_InteractiveContext after AIS_I...
[occt.git] / tests / bugs / vis / bug24391
1 puts "============"
2 puts "OCC24391"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Erased AIS object can not be displayed in AIS_InteractiveContext 
7 #  after AIS_InteractiveContext::Remove
8 #######################################################################
9
10 pload VISUALLIZATION
11 vinit
12 box a 1 1 1
13 vdisplay a
14 verase a
15 vremove -context a
16 vdisplay a
17 vfit
18
19 vmoveto 204 205
20
21 set x_coord 204
22 set y_coord 205
23 checkcolor $x_coord $y_coord 0 1 1
24 if { $stat != 1 } {
25    puts "Error : Erased object is not displayed after its removing."
26 }
27
28 set only_screen 1