2 puts "OCC27433 Opening/Saving OCAF Documents With Own Document Format Does Not Work"
5 # make variable ends with "/" to get empty myName in OSD_Path
6 dsetenv "CSF_PluginDefaults" [dgetenv CSF_PluginDefaults]/
8 # Create simple document with some data
9 NewDocument Doc BinOcaf
10 SetInteger Doc 0:2 100
13 set aFile ${imagedir}/OCC27433-[file tail [info script]].cbf
16 catch {SaveAs Doc ${aFile}}
17 if { ![file exists ${aFile}] } {
18 puts "Error: Can not save the file with path to plugins ended with slash"