1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/vis/bug26462_1
mkrylova e3d4b87912 0031779: Visualization, AIS_ViewController - controller should handle selection schemes
Added AIS_ViewController::MouseSelectionSchemes() property defining map of selection schemes for mouse+modifier combinations.
IsXOR flag has been replaced by AIS_SelectionScheme in interfaces.

Rubber-band selection with Shift key pressed now applies XOR selection scheme in in Draw Harness.
Command vselect has been extended to specify selection scheme by name.
2021-03-04 19:43:13 +03:00

55 lines
1.4 KiB
Plaintext

puts "============"
puts "CR26462"
puts "============"
puts ""
##########################################################################################
puts "Visualization - selection does not adapt to line width change"
##########################################################################################
pload VISUALIZATION MODELING
vinit
box b1 10 10 10
box b2 10 10 10
vdisplay b1 b2
vsetlocation b1 10 10 0
vfit
vaspects b1 b2 -setWidth 3
vselmode 2 1
# try to select b1 and b2
vselect 305 322 -xor
vselect 103 322 -xor
# check that both boxes were not selected with default tolerance value
set aNbSelected [vnbselected]
if {$aNbSelected != "0"} {
puts "ERROR: no boxes must be selected!"
}
puts "0029779: Visualization, SelectMgr_SelectableObject - sensitivity change for object not activated in given mode leads to crash"
vaspects b1 -setSensitivity 3 4
# increase tolerance for b1
vaspects b1 -setSensitivity 2 4
# select edge of b1
vselect 305 322
# check that b1's edge was selected
set aNbSelected [vnbselected]
if {$aNbSelected != "1"} {
puts "ERROR: b1 was not selected"
}
# try to select b2
vselect 103 322 -xor
# check that increase of tolerance for b1 doesn't influence
# on b2
set aNbSelected [vnbselected]
if {$aNbSelected != "1"} {
puts "ERROR: b2 is selected after b1's tolerance increased"
}
checkview -screenshot -3d -path ${imagedir}/${test_image}.png