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
vfit

OCC280 0 0

# selected point
set x_coord 218
set y_coord 196

# 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

