puts "================"
puts "OCC146"
puts "================"
############################################################################
##The first click on shape selects it - it is right. But the second one deselects it and the following clicks have no effect.
############################################################################

v2dinit
box b_b 10 15 20
trotate b_b 0 0 0 1 1 1 45
v2ddisplay b_b
v2dfit

QASelect2d 155 180
QASelect2d 155 180
QASelect2d 155 180

set coord_x 155
set coord_y 177
set color2d 1

checkcolor $coord_x $coord_y 0.8 0.8 0.8

if { $stat != 1 } {
    puts "Error : The second selection of selected object deselects it and the following clicks have no effect"
}

set only_screen2d 1