From 5c4f95258634a3b17a20e4a982c0f1c07263bf2d Mon Sep 17 00:00:00 2001
From: Matthew Webster <mwebster@fmrib.ox.ac.uk>
Date: Mon, 9 Oct 2006 14:32:35 +0000
Subject: [PATCH] Resize corrections

---
 melodic.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/melodic.tcl b/melodic.tcl
index 6163c25..217b934 100644
--- a/melodic.tcl
+++ b/melodic.tcl
@@ -255,7 +255,7 @@ balloonhelp_for $w.dim "In order to avoid overfitting, Melodic will attempt to e
 components from the data using Bayesian estimators for the model 
 order and use PCA to reduce the data prior to the IC estimation."
 
-set fmri(dim) 0
+set fmri(dim) 1
 LabelSpinBox $w.dim.n -label "Output components" -textvariable fmri(dim) -range { 1 200000 1}
 
 #}}}
@@ -336,7 +336,7 @@ pack $w.varnorm $w.dim  $w.thresh $w.ostats $w.report -in $fmri(melodicf) -ancho
         -side left -expand yes -padx 3 -pady 10 -fill y
  
     pack $w.f $w.btns -expand yes -fill both
-$w.nb raise data
+    $w.nb raise data
 #}}}
 }
 
@@ -351,6 +351,7 @@ proc melodic2:updatest { w } {
     } else {
 	pack $w.st_file -in $fmri(stf) -side left -padx 5
     }
+    $w.nb compute_size
 }
 
 #}}}
@@ -379,6 +380,7 @@ proc melodic2:updatedim { w } {
     } else {
 	pack $w.dim.n -in $w.dim -side left -padx 5 -after $w.dim.yn
     }
+    $w.nb compute_size
 }
 
 #}}}
-- 
GitLab