puts "============"
puts "CR23649"
puts "============"
puts ""

#######################################################################
# 0023649: Different behaviour of highlighting after shift selection.
# It tests default functionality of highlighting 
# during shift selection of sub-shapes (local context). 
#######################################################################

set anImage1 $imagedir/${casename}_Selection.png
set anImage2 $imagedir/${casename}_HighlightFirst.png
set anImage3 $imagedir/${casename}_HighlightSecond.png

box b 1 2 3
vinit
vdisplay b
vfit
vselmode b 2 1
#select the first edge
vselect 232 368
#select the second edge
vselect 165 278 1
vmoveto 0 0 
vdump ${anImage1}

#highlight the first edge - it should NOT be highlightable by default
vmoveto 232 368
vdump ${anImage2}

#highlight the second edge - it should NOT be highlightable by default
vmoveto 165 278
vdump ${anImage3}