4 if { [info exists imagedir] == 0 } {
12 #2 define set of labels
14 set Lab1 [Label D 0:1:1]
15 set Lab2 [Label D 0:1:2]
16 set Lab3 [Label D 0:1:3]
17 set Lab4 [Label D 0:1:4]
18 set Lab5 [Label D 0:1:5]
19 set Lab6 [Label D 0:1:6]
22 SetRefArray D $Lab1 1 2 $Lab2 $Lab1
23 SetRefArray D $Lab2 1 2 $Lab3 $Lab4
24 SetRefArray D $Lab3 1 1 $Lab1
26 #4 set additional references
28 SetRefArray D $Lab4 1 2 $Lab5 $Lab1
29 SetRefArray D $Lab5 1 1 $Lab6
30 SetRefArray D $Lab6 1 2 $Lab3 $Lab4
43 SaveAs D ${imagedir}/testDoc2.cbf
47 if { [catch {Close D} catch_result] } {
50 if { ${catch_status} != 0 } {
51 puts "Faulty ${BugNumber}"
53 puts "OK ${BugNumber}"
56 #8 reopen just saved document with the same name
57 Open ${imagedir}/testDoc2.cbf D
60 if { [catch {Close D} catch_result] } {
64 if { ${catch_status} != 0 } {
65 puts "Faulty ${BugNumber}"
67 puts "OK ${BugNumber}"