1puts "============"
2puts "0023649: Different behaviour of highlighting after shift selection."
3puts "It tests default functionality of highlighting"
4puts "during shift selection of sub-shapes (local context)."
5puts "============"
6puts ""
7
8set anImage1 $imagedir/${casename}_Selection.png
9set anImage2 $imagedir/${casename}_HighlightFirst.png
10set anImage3 $imagedir/${casename}_HighlightSecond.png
11
12box b 1 2 3
13vinit
14vdisplay b
15vfit
16vselmode b 2 1
17#select the first edge
18vselect 232 368
19#select the second edge
20vselect 165 278 -xor
21vmoveto 0 0
22vdump ${anImage1}
23
24#highlight the first edge - it should NOT be highlightable by default
25vmoveto 232 368
26vdump ${anImage2}
27
28#highlight the second edge - it should NOT be highlightable by default
29vmoveto 165 278
30vdump ${anImage3}
31