1 puts "================"
3 puts "================"
5 ########################################################################################################
6 # Behaviour of XDE sample is non-stable
7 ########################################################################################################
17 XRemoveShape D 0:1:1:1 1
21 regexp {Free Shapes: ([-0-9.+eE]+)} $xd full FreeShapes
22 puts "FreeShapes=${FreeShapes}"
24 if { ${FreeShapes} != 0 } {
25 puts "Faulty ${BugNumber}"
27 puts "OK ${BugNumber}"