* Modify a bit the parasite nucleus detection sensibility.

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

diff --git a/Parasitemia/ParasitemiaUI/About.fs b/Parasitemia/ParasitemiaUI/About.fs
index 5f1be66..44dd881 100644 (file)
--- a/Parasitemia/ParasitemiaUI/About.fs
+++ b/Parasitemia/ParasitemiaUI/About.fs
@@ -19,10 +19,22 @@ let showWindow (parent: Window) =
     let butClose: Button = ctrl "butClose"
     let txtAbout: TextBlock = ctrl "txtAbout"
 
+    let linkHESSO: Documents.Hyperlink = ctrl "linkHESSO"
+    let linkCHUV: Documents.Hyperlink = ctrl "linkCHUV"
+    let linkGBurri: Documents.Hyperlink = ctrl "linkGBurri"
+
     let version = System.Reflection.Assembly.GetEntryAssembly().GetName().Version
     let txtVersion = sprintf " %d.%d.%d" version.Major version.Minor version.Revision
     txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(txtVersion)
 
+    let navigateTo = Navigation.RequestNavigateEventHandler(fun obj args ->
+        Process.Start(ProcessStartInfo(args.Uri.AbsoluteUri)) |> ignore
+        args.Handled <- true)
+
+    linkHESSO.RequestNavigate.AddHandler(navigateTo);
+    linkCHUV.RequestNavigate.AddHandler(navigateTo);
+    linkGBurri.RequestNavigate.AddHandler(navigateTo);
+
 #if DEBUG
     txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(" - DEBUG")
 #endif