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