0023649: Visualization, AIS_LocalContext - make highlighting of already selected...
[occt.git] / tests / bugs / vis / bug597_2
CommitLineData
352ffd73 1if { [array get env os_type] != "" } {
2 set os $env(os_type)
3}
4if { [string compare $os "windows"] != 0 } {
352ffd73 5}
6
7puts "=================================="
8puts "BUC60569"
9puts "OCC597"
10puts "=================================="
11puts "It takes visual check for this BUG"
12puts "=================================="
13puts ""
14
15restore [locate_data_file buc60569a.rle] result
16tclean result
17vinit
c398b00e 18vhighlightselected 0
352ffd73 19checkshape result
20
21BUC60569 result
22vfit
4754e164 23vselect 250 190
24vselect 180 350 1
25vmoveto 250 190
352ffd73 26
27set x_coord 335
28set y_coord 331
29
30checkcolor $x_coord $y_coord 0.8 0.8 0.8
31
32if {$stat != 1} {
33 puts "Error : The right face is highlighted by Move To command."
34}
35
36set only_screen 1