puts "==========="
puts "OCC27893"
puts "==========="
puts ""
##########################################################################
# Visualization - AIS_InteractiveContext::SetSelected does not work
##########################################################################

pload VISUALIZATION QAcommands

vinit
OCC27893
vfit

if {[vnbselected] != "1" || [vreadpixel 204 254 name] != "GRAY80 1"} {
  puts "ERROR: The box is not selected, AIS_InteractiveContext::SetSelected works incorrect"
}