X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FAbout.fs;h=5d0a17d8e0e78c2d56e71a5019077f282319d262;hp=8c643b7f844ca068c40167cd550bb4d721345d91;hb=3c43609ff19e07331977fb7b62757cc3abd73387;hpb=2d712781def419c9acc98368f7102b19b064f16d

diff --git a/Parasitemia/ParasitemiaUI/About.fs b/Parasitemia/ParasitemiaUI/About.fs
index 8c643b7..5d0a17d 100644
--- a/Parasitemia/ParasitemiaUI/About.fs
+++ b/Parasitemia/ParasitemiaUI/About.fs
@@ -1,12 +1,12 @@
 module ParasitemiaUI.About
 
-open System
 open System.Windows
-open System.Windows.Controls
 open System.Diagnostics
 
+open ParasitemiaUIControls
+
 let showWindow (parent : Window) =
-    let win = Views.AboutWindow ()
+    let win = AboutWindow ()
     win.Owner <- parent
 
     win.Left <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Width / 2.
@@ -19,7 +19,7 @@ let showWindow (parent : Window) =
     let navigateTo =
         Navigation.RequestNavigateEventHandler (
             fun obj args ->
-                Process.Start (ProcessStartInfo args.Uri.AbsoluteUri) |> ignore
+                Process.Start (ProcessStartInfo (args.Uri.AbsoluteUri, UseShellExecute = true)) |> ignore
                 args.Handled <- true
         )