1 set aTestName "xcaf200-L1"
4 # Add an attribute to a data framework
5 set aLabel [XNewShape D]
7 ttranslate aB 333 777 13
8 XAddComponent D $aLabel aB
11 # Close/Open the transaction
14 # save result for check after retrieval
15 set location_before [XDumpLocation D $aLabel]
18 set aFile $WorkDirectory/${aTestName}.${FileSuffix}
22 # Restore the document
26 # Get a value of the attribute
27 set IsDone [catch {set location_after [XDumpLocation DD $aLabel]} aResult]
28 if { ${IsDone} != 0 || ${location_after} != ${location_before} } {
29 puts "Error : Get a value of XCAFDoc_Location attribute from restoring document"