puts "============" puts "OCC727" puts "============" puts "" ############################# ## The second object can not be deselected. ############################# box a 10 10 10 box b 50 50 50 10 10 10 vinit vdisplay a vdisplay b vfit set x1 60 set y1 300 set x2 350 set y2 120 QASelect 0 0 QASelect ${x1} ${y1} QAShiftSelect ${x2} ${y2} set NbSelected1 [QANbSelected] if { ${NbSelected1} != 2 } { puts "Error : (case 1)" } QAShiftSelect ${x2} ${y2} set NbSelected1 [QANbSelected] if { ${NbSelected1} != 1 } { puts "Error : (case 2)" } set only_screen 1