5 ########################################
6 # Extend Expand compounds functionality
7 ########################################
10 XOpen [locate_data_file bug29436_shell.xbf] D
14 set color [XGetShapeColor D 0:1:1:2:1 c]
15 if {$color != "RED"} {
16 puts "Error: metadata lost during expand"
18 set color [XGetShapeColor D 0:1:1:4:1 c]
19 if {$color != "RED"} {
20 puts "Error: metadata lost during expand"