X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FGUI.fs;h=f305687b5e8582a4d95fbf02816167e0b316eae9;hb=2f335ec0c462159ed9f424e3793b7af290404062;hp=4eee1e572d713cf0cc6ab594e3839931912ed81a;hpb=d3f9cd7b16d25f49bd8d06394b0f1d4040809fbd;p=master-thesis.git

diff --git a/Parasitemia/ParasitemiaUI/GUI.fs b/Parasitemia/ParasitemiaUI/GUI.fs
index 4eee1e5..f305687 100644
--- a/Parasitemia/ParasitemiaUI/GUI.fs
+++ b/Parasitemia/ParasitemiaUI/GUI.fs
@@ -342,11 +342,11 @@ let run (defaultConfig : Config) (fileToOpen : string option) =
                 updateGlobalParasitemia ()
 
                 // Update image numbers.
-                win.stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> |> Seq.iter (fun imgPreview -> imgPreview.txtImageNumber.Text <- (imgPreview.Tag :?> SourceImage).Num.ToString ())
+                win.stackPreviews.Children |> Seq.cast<Views.ImageSourcePreview> |> Seq.iter (fun imgPreview -> imgPreview.txtImageNumber.Text <- (imgPreview.Tag :?> SourceImage).RomanNum)
         )
 
         imgCtrl.Tag <- srcImg
-        imgCtrl.txtImageNumber.Text <- string srcImg.Num
+        imgCtrl.txtImageNumber.Text <- string srcImg.RomanNum
         let width = 200
         let height = srcImg.Img.Height * width / srcImg.Img.Width
         imgCtrl.imagePreview.Source <- BitmapSourceConvert.ToBitmapSource (srcImg.Img.Resize (width, height, Emgu.CV.CvEnum.Inter.Cubic))
@@ -484,6 +484,8 @@ let run (defaultConfig : Config) (fileToOpen : string option) =
 
     win.menuAbout.Click.AddHandler (fun obj args -> About.showWindow win)
 
+    win.menuCommandLineArguments.Click.AddHandler (fun obj args -> CommandLineArguments.showWindow win)
+
     win.Closing.AddHandler (fun obj args -> askSaveCurrent ())
 
     // Zoom on the current image.