From 48a1da172a11b1e36af23eba3c41ade8924b1a52 Mon Sep 17 00:00:00 2001
From: Stephen Smith <steve@fmrib.ox.ac.uk>
Date: Fri, 27 Aug 2004 12:39:27 +0000
Subject: [PATCH] *** empty log message ***
---
fdt.tcl | 30 ++++++++++++++----------------
1 file changed, 14 insertions(+), 16 deletions(-)
diff --git a/fdt.tcl b/fdt.tcl
index 50797ad..ec2eb10 100644
--- a/fdt.tcl
+++ b/fdt.tcl
@@ -30,7 +30,7 @@ tixWidgetClass registrationImageSelect {
{-filename filename Filename {}}
{-search search Search N}
{-dof dof DOF N}
- {-pattern pattern Pattern "*.{hdr,hdr.gz}"}
+ {-pattern pattern Pattern "*.{hdr,hdr.gz,nii,nii.gz}"}
}
}
@@ -109,7 +109,7 @@ tixWidgetClass multiFileSelect {
{-label label Label "File"}
{-directory directory Directory {}}
{-filterhist filterhist Filterhist {}}
- {-pattern pattern Pattern "*.{hdr,hdr.gz}"}
+ {-pattern pattern Pattern "*.{hdr,hdr.gz,nii,nii.gz}"}
{-title title Title "Select a file"}
}
}
@@ -371,10 +371,8 @@ proc fdt:dialog { w tclstartupfile } {
set struct [ file join $dirname struct_brain ]
- if { [ file exists ${struct}.gz] } {
- set registration(struct_image) ${struct}.hdr.gz
- } elseif { [ file exists $struct] } {
- set registration(struct_image) ${struct}.hdr
+ if { [ imtest $struct ] } {
+ set registration(struct_image) $struct
} else {
set registration(struct_image) ""
}
@@ -433,7 +431,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Diffusion weighted data:" \
-labelwidth $LWIDTH \
-title "Choose diffusion weighted image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-command "ecc_update_files $w" \
-filterhist VARS(history)
@@ -444,7 +442,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Corrected output data:" \
-labelwidth $LWIDTH \
-title "Choose output image name" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-filterhist VARS(history)
tixControl $w.ecc.refnum -label "Reference volume" \
@@ -505,7 +503,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Diffusion weighted data:" \
-labelwidth $LWIDTH \
-title "Choose diffusion weighted image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-command "dtifit_update_files $w" \
-filterhist VARS(history)
@@ -516,7 +514,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "BET binary brain mask:" \
-labelwidth $LWIDTH \
-title "Choose BET brain mask file" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-command "set_working_directory dtifit(cwd)" \
-width 35 \
-filterhist VARS(history)
@@ -646,7 +644,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Seed image:" \
-labelwidth $LWIDTH \
-title "Choose seed image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-command "probtrack_update_files $w" \
-filterhist VARS(history)
@@ -657,7 +655,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Target image:" \
-labelwidth $LWIDTH \
-title "Choose target image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-command "probtrack_update_files $w" \
-filterhist VARS(history)
@@ -700,7 +698,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Seed space reference image:" \
-labelwidth $LWIDTH \
-title "Choose reference image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-filterhist VARS(history)
@@ -734,7 +732,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Exclusion mask:" \
-labelwidth $LWIDTH \
-title "Select exclusion mask image" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-filterhist VARS(history)
@@ -750,7 +748,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Low resolution mask:" \
-labelwidth $LWIDTH \
-title "Choose low resolution mask" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-filterhist VARS(history)
@@ -775,7 +773,7 @@ proc fdt:dialog { w tclstartupfile } {
-label "Output:" \
-labelwidth $LWIDTH \
-title "Choose output file name" \
- -pattern "*.{hdr,hdr.gz}" \
+ -pattern "IMAGE" \
-width 35 \
-filterhist VARS(history)
--
GitLab