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
  10 OCC280 0 0
  11
  12 # selected point
  13 set x_coord 22
  14 set y_coord 241
  15
  16 vfit
  17
  18 # There is not selection
  19 puts "There is not selection"
  20
  21 checkcolor $x_coord $y_coord 1 1 0
  22
  23 # Move a mouse
  24 puts "Move a mouse"
  25 vmoveto $x_coord $y_coord
  26
  27 # There is a selection
  28 puts "There is a selection"
  29
  30 checkcolor $x_coord $y_coord 0 1 1
  31
  32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  33