puts "=========="
puts "OCC29436"
puts "=========="
puts ""
########################################
# Extend Expand compounds functionality
########################################
pload ALL

XOpen [locate_data_file bug29436_compound.xbf] D
XExpand D 1 0:1:1:1

# check colors
set color [XGetShapeColor D 0:1:1:2]
if {$color != "GREEN"} {
  puts "Error: metadata lost during expand"
}
set color [XGetShapeColor D 0:1:1:3]
if {$color != "GREEN"} {
  puts "Error: metadata lost during expand"
}
set color [XGetShapeColor D 0:1:1:2:1]
if {$color != "CYAN1"} {
  puts "Error: metadata lost during expand"
}

Close D