+ 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);
+