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