Use a maybe monad to be able abort an analysis.

[master-thesis.git] / Parasitemia / ParasitemiaUI / GUI.fs

diff --git a/Parasitemia/ParasitemiaUI/GUI.fs b/Parasitemia/ParasitemiaUI/GUI.fs
index d30cb66..921654a 100644 (file)
--- a/Parasitemia/ParasitemiaUI/GUI.fs
+++ b/Parasitemia/ParasitemiaUI/GUI.fs
@@ -344,6 +344,10 @@ let run (defaultConfig: Config) (fileToOpen: string option) =
             if currentRemoved
             then
                 updateCurrentImage()
+
+            updateGlobalParasitemia()
+
+            // Update image numbers.
             stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> |> Seq.iter (fun imgPreview -> imgPreview.txtImageNumber.Text <- (imgPreview.Tag :?> SourceImage).num.ToString()))
 
         imgCtrl.Tag <- srcImg