1 puts "================"
4 puts "================"
5 #######################################################################################
6 # AIS_LC::AddOrRemoveSelected(Handle(SelectMgr_EntityOwner), ..) works too slow
7 #######################################################################################
10 box b2 20 20 20 10 10 10
16 set x11 57 ; set y11 322
17 set x12 118 ; set y12 322
20 set x21 290 ; set y21 186
21 set x22 352 ; set y22 186
31 #QASetChoiceMode EDGE ON
34 OCC1786 ${AutoHilight}
35 set BeforeNbSelected [vnbselected]
37 checkcolor ${x12} ${y12} ${Idle_R} ${Idle_G} ${Idle_B}
38 checkcolor ${x21} ${y21} ${Idle_R} ${Idle_G} ${Idle_B}
39 checkcolor ${x22} ${y22} ${Idle_R} ${Idle_G} ${Idle_B}
41 if {${BeforeNbSelected} == 0} {
42 puts "OCC1786: OK (case 4: before selection)"
44 puts "OCC1786: Error (case 4: before selection)"
51 vselect ${x11} ${y11} 1
52 vselect ${x12} ${y12} 1
54 vselect ${x21} ${y21} 1
55 vselect ${x22} ${y22} 1
58 set AfterNbSelected [vnbselected]
60 checkcolor ${x11} ${y11} ${Selection_R} ${Selection_G} ${Selection_B}
61 checkcolor ${x12} ${y12} ${Selection_R} ${Selection_G} ${Selection_B}
62 checkcolor ${x21} ${y21} ${Selection_R} ${Selection_G} ${Selection_B}
63 checkcolor ${x22} ${y22} ${Selection_R} ${Selection_G} ${Selection_B}
65 if {${AfterNbSelected} == 4} {
66 puts "OCC1786: OK (case 9: after selection)"
68 puts "OCC1786: Error (case 9: after selection)"
71 checkview -screenshot -3d -path ${imagedir}/${test_image}.png