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 |
9 | vfit |
10 | |
11 | OCC280 0 0 |
12 | |
13 | # selected point |
f1aa2b62 |
14 | set x_coord 218 |
15 | set y_coord 196 |
a87752f3 |
16 | |
17 | # There is not selection |
18 | puts "There is not selection" |
f1aa2b62 |
19 | |
20 | checkcolor $x_coord $y_coord 1 1 0 |
a87752f3 |
21 | |
22 | # Move a mouse |
23 | puts "Move a mouse" |
4754e164 |
24 | vmoveto $x_coord $y_coord |
a87752f3 |
25 | |
26 | # There is a selection |
27 | puts "There is a selection" |
f1aa2b62 |
28 | |
29 | checkcolor $x_coord $y_coord 0 1 1 |
a87752f3 |
30 | |
31 | set only_screen 1 |
32 | |