detix

mrinfo.tcl

 #  Info browser for XVNMR info files
 #  Copyright (c) Stuart Clare, FMRIB Centre, University of Oxford.
 
-source /usr/local/fsl/tcl/fslstart.tcl
-set auto_path [ linsert $auto_path 0 [ file dirname [ info script ] ] ]
-source /usr/local/fsl/tcl/FidFolderInfoBox.tcl
-source /usr/local/fsl/tcl/FidFolderInfoDlg.tcl
+source $env(FSLDIR)/tcl/fslstart.tcl
 
-tixFidFolderInfoSelectDialog .browser \
-	-title "Select a Varian FID file..." \
-	-command mrquit
 if {[file isdirectory ~/MRdata]==1} {
-    .browser subwidget fsbox config -directory ~/MRdata
+    set a ~/MRdata
 } else {
-    .browser subwidget fsbox config -directory ~
-}
-
-proc mrquit { w } {
-    wm withdraw .browser
-    exit
+    set a ~
 }
 
+feat_file:setup_dialogFid . a a a [namespace current] IMAGE {Select a Varian FID file...} {destroy .} {fid}
+$env(w_filesel).f4.but_cancel configure -command "destroy ."
 
 wm withdraw .
-.browser popup
 tkwait window .