Skip to content
Snippets Groups Projects
Commit 05a4e7f9 authored by David Flitney's avatar David Flitney
Browse files

*** empty log message ***

parent eda25c23
No related branches found
No related tags found
No related merge requests found
...@@ -103,7 +103,7 @@ tixWidgetClass multiFileSelect { ...@@ -103,7 +103,7 @@ tixWidgetClass multiFileSelect {
-superclass tixPrimitive -superclass tixPrimitive
-classname MultiFileSelect -classname MultiFileSelect
-method { -method {
save save load
} }
-flag { -flag {
-variable -labelwidth -label -directory -pattern -title -filterhist -variable -labelwidth -label -directory -pattern -title -filterhist
...@@ -205,6 +205,10 @@ proc multiFileSelect:remove { w } { ...@@ -205,6 +205,10 @@ proc multiFileSelect:remove { w } {
proc multiFileSelect:load { w filename } { proc multiFileSelect:load { w filename } {
upvar #0 $w data upvar #0 $w data
if { ![ file exists $filename ] } {
MxPause "Warning: Bad or missing targets file!"
return
}
set fd [ open $filename ] set fd [ open $filename ]
[$w subwidget files] delete 0 end [$w subwidget files] delete 0 end
while { [ gets $fd file ] >= 0 } { while { [ gets $fd file ] >= 0 } {
...@@ -903,6 +907,7 @@ proc fdt:dialog { w tclstartupfile } { ...@@ -903,6 +907,7 @@ proc fdt:dialog { w tclstartupfile } {
set probtrack(mode) simple set probtrack(mode) simple
fdt:probtrack_mode $w $probtrack(mode) fdt:probtrack_mode $w $probtrack(mode)
update idletasks
if { $tclstartupfile != "" } { if { $tclstartupfile != "" } {
puts "Reading $tclstartupfile" puts "Reading $tclstartupfile"
source $tclstartupfile source $tclstartupfile
...@@ -1258,7 +1263,7 @@ proc fdt:apply { w dialog } { ...@@ -1258,7 +1263,7 @@ proc fdt:apply { w dialog } {
if { $canwrite } { if { $canwrite } {
puts "mkdir -p $probtrack(dir)" puts "mkdir -p $probtrack(dir)"
exec mkdir -p $probtrack(dir) exec mkdir -p $probtrack(dir)
puts "$w.data.targets save \"$probtrack(dir)/targets.txt\"" puts $log "$w.data.targets load \"$probtrack(dir)/targets.txt\""
$w.data.targets save "$probtrack(dir)/targets.txt" $w.data.targets save "$probtrack(dir)/targets.txt"
set copylog "$probtrack(dir)/fdt.log" set copylog "$probtrack(dir)/fdt.log"
fdt_monitor $w "$FSLDIR/bin/probtrack --mode=seeds_to_targets -x $probtrack(seed) $basics $ssopts $flags --targetmasks=${probtrack(dir)}/targets.txt --dir=$probtrack(dir)" fdt_monitor $w "$FSLDIR/bin/probtrack --mode=seeds_to_targets -x $probtrack(seed) $basics $ssopts $flags --targetmasks=${probtrack(dir)}/targets.txt --dir=$probtrack(dir)"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment