tests/bugs/vis/bug727

   1 puts "============"
   2 puts "OCC727"
   3 puts "============"
   4 puts ""
   5 #############################
   6 ## The second object can not be deselected.
   7 #############################
   8
   9 box a 10 10 10
  10 box b 50 50 50 10 10 10
  11
  12 vinit
  13 vdisplay a
  14 vdisplay b
  15 vfit
  16
  17 set x1 60
  18 set y1 300
  19 set x2 350
  20 set y2 120
  21
  22 vselect 0 0
  23 vselect ${x1} ${y1}
  24 vselect ${x2} ${y2} 1
  25
  26 set NbSelected1 [vnbselected]
  27 if { ${NbSelected1} != 2 } {
  28   puts "Error : (case 1)"
  29 }
  30
  31 vselect ${x2} ${y2} 1
  32
  33 set NbSelected1 [vnbselected]
  34 if { ${NbSelected1} != 1 } {
  35   puts "Error : (case 2)"
  36 }
  37
  38 set only_screen 1