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