tests/bugs/vis/bug280_2

   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
  14 set x_coord 218
  15 set y_coord 196
  16
  17 # There is not selection
  18 puts "There is not selection"
  19
  20 checkcolor $x_coord $y_coord 1 1 0
  21
  22 # Move a mouse
  23 puts "Move a mouse"
  24 vmoveto $x_coord $y_coord
  25
  26 # There is a selection
  27 puts "There is a selection"
  28
  29 checkcolor $x_coord $y_coord 0 1 1
  30
  31 set only_screen 1
  32