352ffd73 |
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 | |
4754e164 |
22 | vselect 0 0 |
23 | vselect ${x1} ${y1} |
24 | vselect ${x2} ${y2} 1 |
352ffd73 |
25 | |
4754e164 |
26 | set NbSelected1 [vnbselected] |
352ffd73 |
27 | if { ${NbSelected1} != 2 } { |
28 | puts "Error : (case 1)" |
29 | } |
30 | |
4754e164 |
31 | vselect ${x2} ${y2} 1 |
352ffd73 |
32 | |
4754e164 |
33 | set NbSelected1 [vnbselected] |
352ffd73 |
34 | if { ${NbSelected1} != 1 } { |
35 | puts "Error : (case 2)" |
36 | } |
37 | |
38 | set only_screen 1 |