3 if { [info exists imagedir] == 0 } {
9 NewDocument D MDTV-Standard
17 set F2 [AddFunction D $B2 Box]
25 #3 save shape in the document
26 SaveAs D ${imagedir}/testDoc1.std
30 if { [catch {Close D} catch_result] } {
33 if { ${catch_status} != 0 } {
34 puts "Faulty ${BugNumber}"
36 puts "OK ${BugNumber}"
39 #5 reopen just saved document with the same name
40 Open ${imagedir}/testDoc1.std D
44 if { [catch {Close D} catch_result] } {
48 if { ${catch_status} != 0 } {
49 puts "Faulty ${BugNumber}"
51 puts "OK ${BugNumber}"