X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FAbout.fs;h=44dd881d4e84c42defd400ddb2ebba10f8b98d18;hp=5f1be66a321c843b823f1c0cba953dd5bc8822b8;hb=e588f9c954a54cb259b2c1f6f9e8d9dbd4639269;hpb=3f8b0d281b3058faf23dbd0363de440bd04c6574

diff --git a/Parasitemia/ParasitemiaUI/About.fs b/Parasitemia/ParasitemiaUI/About.fs
index 5f1be66..44dd881 100644
--- 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