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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png