puts "========"
puts "OCC25441"
puts "========"
puts ""
###########################################################################
# XCAFDoc_ShapeTool::UpdateAssembly() does not update the back-references
###########################################################################

pload OCAFKERNEL

box b 0 0 0 1 1 1
psphere b1 10
NewDocument d
compound b c
compound c c1
XAddShape d c1 1
XShow d
XSetShape d 0:1:1:3 b1
XShow d
vfit

set only_screen 1