c398b00e |
1 | puts "============" |
2 | puts "CR23649" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ####################################################################### |
7 | # 0023649: Different behaviour of highlighting after shift selection |
8 | # It tests highlighting of selected shapes (neutral point). |
9 | # This mode is option of interactive context. |
10 | ####################################################################### |
11 | |
12 | set anImage1 $imagedir/${casename}_HighlightFirst.png |
13 | set anImage2 $imagedir/${casename}_HighlightSecond.png |
14 | |
15 | box a 2 0 0 3 2 1 |
16 | box b 1 2 3 |
17 | vinit |
18 | vdisplay a b |
19 | vfit |
20 | #select the first shape |
21 | vselect 70 230 |
22 | #select the second shape |
23 | vselect 200 360 1 |
24 | vmoveto 0 0 |
25 | |
26 | #enable 'highlight selected' mode |
27 | vhighlightselected on |
28 | |
29 | #highlight the first edge - it should be highlightable by default |
30 | vmoveto 70 230 |
31 | vdump ${anImage1} |
32 | |
33 | #highlight the second edge - it should be highlightable by default |
34 | vmoveto 200 360 |
35 | vdump ${anImage2} |