let butClose: Button = ctrl "butClose"
let txtAbout: TextBlock = ctrl "txtAbout"
+ let linkHESSO: Documents.Hyperlink = ctrl "linkHESSO"
+ let linkCHUV: Documents.Hyperlink = ctrl "linkCHUV"
+ let linkGBurri: Documents.Hyperlink = ctrl "linkGBurri"
+
let version = System.Reflection.Assembly.GetEntryAssembly().GetName().Version
let txtVersion = sprintf " %d.%d.%d" version.Major version.Minor version.Revision
txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(txtVersion)
+ 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);
+
#if DEBUG
txtAbout.Inlines.FirstInline.ElementEnd.InsertTextInRun(" - DEBUG")
#endif