- let txtVersion = sprintf "%d.%d.%d" version.Major version.Minor version.Revision
- txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(txtVersion)
+ let txtVersion = sprintf " %d.%d.%d" version.Major version.Minor version.Revision
+ 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;