GetRefArray D $Lab6
#6 save the document
-SaveAs D ${imagedir}/testDoc2.cbf
+set aTmpFile ${imagedir}/${casename}.cbf
+SaveAs D $aTmpFile
#7 close the document
set catch_status 0
}
#8 reopen just saved document with the same name
-Open ${imagedir}/testDoc2.cbf D
+Open $aTmpFile D
+file delete -force $aTmpFile
#9 close the document
if { [catch {Close D} catch_result] } {
} else {
puts "OK ${BugNumber}"
}
-