mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
puts "============"
|
|
puts "CR25627"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# SelectedShape() and HasSelectedShape() of AIS_InteractiveContext
|
|
# class do not work as expected.
|
|
#######################################################################
|
|
pload ALL
|
|
|
|
vinit
|
|
box aBox 5 5 5
|
|
vdisplay aBox
|
|
vfit
|
|
vselect 100 100
|
|
set aSelectionRes [vstate -hasSelected]
|
|
if { [lsearch $aSelectionRes 0] != -1 } {
|
|
puts "ERROR: Incorrect result of HasSelectedShape of the context!"
|
|
}
|
|
vpickselected aSelected
|
|
set aRes [vstate aSelected]
|
|
if { $aRes == "aSelected doesn't exist!" } {
|
|
puts "ERROR: No shape selected in neutral point!"
|
|
}
|
|
set aCompRes [compare aBox aSelected]
|
|
if { [lsearch $aCompRes not] != -1 } {
|
|
puts "ERROR: Selected box and selected shape from the context are not equal!"
|
|
}
|
|
|
|
vselect 0 0
|
|
vremove aSelected
|
|
|
|
vselmode aBox 6 1
|
|
vselect 100 100
|
|
set aSelectionRes [vstate -hasSelected]
|
|
if { [lsearch $aSelectionRes 0] != -1 } {
|
|
puts "ERROR: Incorrect result of HasSelectedShape of the context!"
|
|
}
|
|
vpickselected aSelected
|
|
set aRes [vstate aSelected]
|
|
if { $aRes == "aSelected doesn't exist!" } {
|
|
puts "ERROR: No shape selected in local selection!"
|
|
}
|
|
set aCompRes [compare aBox aSelected]
|
|
if { [lsearch $aCompRes not] != -1 } {
|
|
puts "ERROR: Selected box and selected solid are not equal!"
|
|
}
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|