0029018: Documentation - Provide user guide for Qt browser
[occt.git] / tests / tools / dfbrowser / A6
1 pload DCAF
2
3 chrono qat start
4 # Create a new document and set UndoLimit
5 NewDocument D BinOcaf
6
7 #NewDocument D
8 cpulimit 300
9 UndoLimit D 100
10
11 # Open a transaction
12 NewCommand D
13
14 puts "caf005-I3"
15 set QA_DUP 0
16
17 # Add an attribute to a data framework
18 set aLabel_Root 0:2
19 set aName_Root Label_1
20 Label D ${aLabel_Root}
21 SetName D ${aLabel_Root} ${aName_Root}
22
23 set aName1 Label_1_1
24 ###set aChild1 [NewChild D ${aLabel_Root}]
25 set aChild1 0:2:1
26 Label D ${aChild1}
27 SetName D ${aChild1} ${aName1}
28
29 set aName2 Label_1_2
30 ###set aChild2 [NewChild D ${aLabel_Root}]
31 set aChild2 0:2:2
32 Label D ${aChild2}
33 SetName D ${aChild2} ${aName2}
34
35 set aName3 Label_1_1_1
36 ###set aChild3 [NewChild D ${aLabel_Root}]
37 set aChild3 0:2:3
38 Label D ${aChild3}
39 SetName D ${aChild3} ${aName3}
40
41 set aName4 Label_1_1_2
42 ###set aChild4 [NewChild D ${aLabel_Root}]
43 set aChild4 0:2:4
44 Label D ${aChild4}
45 SetName D ${aChild4} ${aName4}
46
47 set aName5 Label_1_1_3
48 ###set aChild5 [NewChild D ${aLabel_Root}]
49 set aChild5 0:2:5
50 Label D ${aChild5}
51 SetName D ${aChild5} ${aName5}
52
53 set aName6 Label_1_2_1
54 ###set aChild6 [NewChild D ${aLabel_Root}]
55 set aChild6 0:2:6
56 Label D ${aChild6}
57 SetName D ${aChild6} ${aName6}
58
59 set aName7 Label_1_2_2
60 ###set aChild7 [NewChild D ${aLabel_Root}]
61 set aChild7 0:2:7
62 Label D ${aChild7}
63 SetName D ${aChild7} ${aName7}
64
65 SetNode D ${aLabel_Root}
66 AppendNode D ${aLabel_Root} ${aChild1}
67 AppendNode D ${aLabel_Root} ${aChild2}
68 AppendNode D ${aChild1} ${aChild3}
69 AppendNode D ${aChild1} ${aChild4}
70 AppendNode D ${aChild1} ${aChild5}
71 AppendNode D ${aChild2} ${aChild6}
72 AppendNode D ${aChild2} ${aChild7}
73
74 pload INSPECTOR
75
76 tinspector -plugins dfbrowser -select 0:2:6 TDataStd_TreeNode