5 ########################################
6 # Extend Expand compounds functionality
7 ########################################
10 XOpen [locate_data_file bug29436_compound.xbf] D
14 set color [XGetShapeColor D 0:1:1:2]
15 if {$color != "GREEN"} {
16 puts "Error: metadata lost during expand"
18 set color [XGetShapeColor D 0:1:1:3]
19 if {$color != "GREEN"} {
20 puts "Error: metadata lost during expand"
22 set color [XGetShapeColor D 0:1:1:2:1]
23 if {$color != "CYAN1"} {
24 puts "Error: metadata lost during expand"