Ticket #41320: patch-Tcl-wnOpen.tcl.diff
File patch-Tcl-wnOpen.tcl.diff, 930 bytes (added by dstrubbe (David Strubbe), 11 years ago) |
---|
-
Tcl/wnOpen.tcl
old new 76 76 ######################################################### 77 77 # get the filehead out of filename (case.struct --> case) 78 78 set pwd [pwd] 79 cd [file dirname $file] 79 file copy $file $system(SCRDIR) 80 cd $system(SCRDIR) 80 81 set filehead [file tail [FileHead $file]] 81 82 if { [catch {exec $system(FORDIR)/str2xcr $filehead}] } { 82 ErrorDialog "error while executing \"str2xcr\" program" 83 set mypwd [pwd] 84 ErrorDialog "error while executing $system(FORDIR)/str2xcr $filehead in $mypwd" 83 85 return 84 86 } 85 # now copy $filehead.xcr to $system(SCRDIR)/xc_str2xcr.$$86 file rename -force ${filehead}.xcr $system(SCRDIR)/xc_str2xcr.$system(PID)87 # now copy $filehead.xcr to xc_str2xcr.$$ 88 file rename -force ${filehead}.xcr xc_str2xcr.$system(PID) 87 89 cd $pwd 88 90 89 91 #