a87752f3 |
1 | puts "========" |
2 | puts "OCC280" |
3 | puts "2. Hilighting the object, by moving mouse cursor on it does not hilight the object" |
4 | puts "========" |
5 | |
6 | vinit |
7 | box b 100 900 300 |
8 | vdisplay b |
a87752f3 |
9 | |
10 | OCC280 0 0 |
11 | |
12 | # selected point |
b5ac8292 |
13 | set x_coord 22 |
197ac94e |
14 | set y_coord 241 |
b5ac8292 |
15 | |
16 | vfit |
a87752f3 |
17 | |
18 | # There is not selection |
19 | puts "There is not selection" |
f1aa2b62 |
20 | |
21 | checkcolor $x_coord $y_coord 1 1 0 |
a87752f3 |
22 | |
23 | # Move a mouse |
24 | puts "Move a mouse" |
4754e164 |
25 | vmoveto $x_coord $y_coord |
a87752f3 |
26 | |
27 | # There is a selection |
28 | puts "There is a selection" |
f1aa2b62 |
29 | |
30 | checkcolor $x_coord $y_coord 0 1 1 |
a87752f3 |
31 | |
32 | set only_screen 1 |
33 | |