2 # Tree construction attributes
4 # Testing attribute: TDataStd_Directory
6 # Testing command: AddDirectory
11 # Add an attribute to a data framework
13 NewDirectory D ${aLabel1}
15 SetName D ${aLabel1} ${aName1}
16 set aSubDirectory [AddDirectory D ${aLabel1}]
17 set aName2 SubDirectory1
18 set aLabel2 [lindex ${aSubDirectory} 0]
19 SetName D ${aLabel2} ${aName2}
21 # Close/Open the transaction
24 # Forget the attribute
25 ForgetAll D ${aLabel1}
27 # Close/Open the transaction
35 # Get a value of the attribute
36 set aGetName2 [GetName D ${aLabel2}]
37 if { ${aName2}!=${aGetName2} } {
38 puts "aName2=${aName2} aGetName2=${aGetName2}"
39 puts "Add TDataStd_Directory attribute: Error"
42 puts "Add TDataStd_Directory attribute: OK"