mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
61 lines
1.2 KiB
Plaintext
Executable File
61 lines
1.2 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC7186"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Selecting an empty space with rectangle doesn't clear
|
|
# the current selection, when there is an opened local context
|
|
######################################################
|
|
|
|
set BugNumber OCC7186
|
|
|
|
set mistake 0
|
|
|
|
box b 10 10 10
|
|
vinit
|
|
vdisplay b
|
|
vfit
|
|
QAUpdateLights
|
|
vselmode 2 1
|
|
|
|
QASelectRectangle 1 1 407 407
|
|
|
|
set NbSelected1 [QANbSelected]
|
|
if { ${NbSelected1} != 12 } {
|
|
puts "Bad number of selected edges after rectangle selection all edges"
|
|
set mistake 1
|
|
}
|
|
|
|
QASelectRectangle 10 10 20 20
|
|
|
|
set NbSelected2 [QANbSelected]
|
|
if { ${NbSelected2} != 0 } {
|
|
puts "Error : Bad number of selected edges after rectangle selection an empty space"
|
|
set mistake 1
|
|
|
|
}
|
|
|
|
set x [list 125 204 283 29 111 298 379 125 204 283 125 283]
|
|
set y [list 47 100 47 200 150 150 200 250 300 250 361 361]
|
|
|
|
|
|
QAUpdateLights
|
|
puts ""
|
|
for {set i 0} {$i < 12} {incr i} {
|
|
set x_coord [lindex ${x} $i]
|
|
set y_coord [lindex ${y} $i]
|
|
checkcolor $x_coord $y_coord 1 1 0
|
|
if { ${stat} != 1 } {
|
|
set mistake 1
|
|
}
|
|
}
|
|
|
|
puts ""
|
|
if { ${mistake} == 1 } {
|
|
puts "${BugNumber}: Faulty"
|
|
} else {
|
|
puts "${BugNumber}: OK"
|
|
}
|
|
|
|
set only_screen 1
|