+ win.txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(txtVersion)
+
+ let navigateTo = Navigation.RequestNavigateEventHandler(fun obj args ->
+ Process.Start(ProcessStartInfo(args.Uri.AbsoluteUri)) |> ignore
+ args.Handled <- true)
+
+ win.linkHESSO.RequestNavigate.AddHandler(navigateTo);
+ win.linkCHUV.RequestNavigate.AddHandler(navigateTo);
+ win.linkGBurri.RequestNavigate.AddHandler(navigateTo);