2 # Tree construction attributes
4 # Testing attribute: TDataStd_Directory
6 # Testing command: NewDirectory
11 # Add an attribute to a data framework
13 NewDirectory D ${aLabel1}
15 SetName D ${aLabel1} ${aName1}
17 # Close/Open the transaction
21 set aFile ${imagedir}/caf001-B3.std
24 if { ![file exists ${aFile}] } {
25 puts "There is not ${aFile} file; SaveAs command: Error"
28 #catch {exec chmod 777 ${aFile}}
30 # Restore the document
34 # Get a value of the attribute
35 set IsDone [catch {set aGetName1 [GetName DD ${aLabel1}]} aResult]
36 if { ${IsDone} != 0 ||
37 ${aName1}!=${aGetName1} } {
38 puts "aName1=${aName1} aGetName1=${aGetName1}"
40 puts "Get a value of TDataStd_Directory attribute from restoring document: Error"
43 puts "Get a value of TDataStd_Directory attribute from restoring document: OK"