X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FState.fs;h=befbdecaf5bf68a54ce3adc67be80f719cd98c44;hb=a498bc4223a22cd38b91b3348912301e15c077ae;hp=129e6a6bae522b0e7d3af94893b9669ea8364254;hpb=42d4db26f30bccbcc2e1b6d1f82a5b04a1f3dcd2;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/State.fs b/Parasitemia/ParasitemiaUI/State.fs
index 129e6a6..befbdec 100644
--- a/Parasitemia/ParasitemiaUI/State.fs
+++ b/Parasitemia/ParasitemiaUI/State.fs
@@ -89,8 +89,8 @@ type State (defaultConfig : ParasitemiaCore.Config.Config) =
             srcImg.Name <- name
             alteredSinceLastSave <- true
 
-    member this.SetResult (imgNum : int) (result : ParasitemiaCore.Types.AnalysisResult) =
-        let sourceImage = sourceImages.Find (fun srcImg -> srcImg.Num = imgNum)
+    member this.SetResult (imgId : string) (result : ParasitemiaCore.Types.AnalysisResult) =
+        let sourceImage = sourceImages.Find (fun srcImg -> srcImg.RomanNum = imgId)
 
         let w = sourceImage.Img.Width
         let h = sourceImage.Img.Height