0029779: Visualization, SelectMgr_SelectableObject - sensitivity change for object...
[occt.git] / tests / bugs / vis / bug26462_1
CommitLineData
8a1170ad 1puts "============"
2puts "CR26462"
3puts "============"
4puts ""
5
6##########################################################################################
7puts "Visualization - selection does not adapt to line width change"
8##########################################################################################
9
10pload VISUALIZATION MODELING
11
12vinit
13box b1 10 10 10
14box b2 10 10 10
15
16vdisplay b1 b2
17vsetlocation b1 10 10 0
18vfit
19
20vaspects b1 b2 -setWidth 3
21
22vselmode 2 1
23# try to select b1 and b2
24vselect 305 322 1
25vselect 103 322 1
26# check that both boxes were not selected with default tolerance value
27set aNbSelected [vnbselected]
28if {$aNbSelected != "0"} {
29 puts "ERROR: no boxes must be selected!"
30}
31
0e4e721c 32puts "0029779: Visualization, SelectMgr_SelectableObject - sensitivity change for object not activated in given mode leads to crash"
33vaspects b1 -setSensitivity 3 4
34
8a1170ad 35# increase tolerance for b1
36vaspects b1 -setSensitivity 2 4
37
38# select edge of b1
39vselect 305 322
40# check that b1's edge was selected
41set aNbSelected [vnbselected]
42if {$aNbSelected != "1"} {
43 puts "ERROR: b1 was not selected"
44}
45# try to select b2
46vselect 103 322 1
47# check that increase of tolerance for b1 doesn't influence
48# on b2
49set aNbSelected [vnbselected]
50if {$aNbSelected != "1"} {
51 puts "ERROR: b2 is selected after b1's tolerance increased"
52}
53
5747059b 54checkview -screenshot -3d -path ${imagedir}/${test_image}.png