0032155: Tests - remove broken command OCC280
[occt.git] / tests / bugs / vis / bug280_2
1 puts "========"
2 puts "OCC280"
3 puts "2. Highlighting the object, by moving mouse cursor on it does not highlight the object"
4 puts "========"
5
6 vinit
7 box b 100 900 300
8 vdisplay b
9
10 OCC280 0 0
11
12 # selected point
13 set x_coord 22
14 set y_coord 241
15
16 vfit
17
18 # There is not selection
19 puts "There is not selection"
20
21 checkcolor $x_coord $y_coord 1 1 0
22
23 # Move a mouse
24 puts "Move a mouse"
25 vmoveto $x_coord $y_coord
26
27 # There is a selection
28 puts "There is a selection"
29
30 checkcolor $x_coord $y_coord 0 1 1
31
32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
33