diff --git a/fdt.tcl b/fdt.tcl index 1275a32f81308567bfc2ac919d7ac71d9df25b7c..b395fd7f0717c94ac4d4bf6d07e940b4dbacdec3 100644 --- a/fdt.tcl +++ b/fdt.tcl @@ -690,6 +690,15 @@ proc fdt:apply { w dialog } { if { [ file exists $probtrack(output) ] } { set canwrite [ YesNoWidget "Overwrite $probtrack(output)?" Yes No ] } + + set deslashedFileName [ rmSlash $probtrack(output) ] + if {[string index $deslashedFileName 0] != "/"} { + #remove ./ if name only typed in by tailing value + set deslashedFileName [file tail $deslashedFileName ] + set deslashedFileName [pwd]/$deslashedFileName + set probtrack(output) [rmSlash $deslashedFileName] + } + if { $canwrite } { puts "rm -rf $probtrack(output)" exec rm -rf $probtrack(output) @@ -727,6 +736,7 @@ proc fdt:apply { w dialog } { } switch $probtrack(mode) { simple { + set singleFileName [ file tail $probtrack(output) ] set fd [ open "${filebase}_coordinates.txt" w ] set x $probtrack(x) set y $probtrack(y) @@ -750,7 +760,7 @@ proc fdt:apply { w dialog } { puts $log "set probtrack(y) $probtrack(y)" puts $log "set probtrack(z) $probtrack(z)" puts $log "set probtrack(units) $probtrack(units)" - set flags "--mode=simple --seedref=$probtrack(reference) -o $probtrack(output) -x ${filebase}_coordinates.txt $flags" + set flags "--mode=simple --seedref=$probtrack(reference) -o ${probtrack(output)}/${singleFileName} -x ${filebase}_coordinates.txt $flags" } seedmask { if { [ file exists ${FSLDIR}/bin/reord_OM ] } {