projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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()
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
stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> |> Seq.iter (fun imgPreview -> imgPreview.txtImageNumber.Text <- (imgPreview.Tag :?> SourceImage).num.ToString()))
imgCtrl.Tag <- srcImg