projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Save imported image in the same format (WIP)
[master-thesis.git]
/
Parasitemia
/
ParasitemiaUI
/
About.fs
diff --git
a/Parasitemia/ParasitemiaUI/About.fs
b/Parasitemia/ParasitemiaUI/About.fs
index
8c643b7
..
5d0a17d
100644
(file)
--- a/
Parasitemia/ParasitemiaUI/About.fs
+++ b/
Parasitemia/ParasitemiaUI/About.fs
@@
-1,12
+1,12
@@
module ParasitemiaUI.About
module ParasitemiaUI.About
-open System
open System.Windows
open System.Windows
-open System.Windows.Controls
open System.Diagnostics
open System.Diagnostics
+open ParasitemiaUIControls
+
let showWindow (parent : Window) =
let showWindow (parent : Window) =
- let win =
Views.
AboutWindow ()
+ let win = AboutWindow ()
win.Owner <- parent
win.Left <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Width / 2.
win.Owner <- parent
win.Left <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Width / 2.
@@
-19,7
+19,7
@@
let showWindow (parent : Window) =
let navigateTo =
Navigation.RequestNavigateEventHandler (
fun obj args ->
let navigateTo =
Navigation.RequestNavigateEventHandler (
fun obj args ->
- Process.Start (ProcessStartInfo
args.Uri.AbsoluteUri
) |> ignore
+ Process.Start (ProcessStartInfo
(args.Uri.AbsoluteUri, UseShellExecute = true)
) |> ignore
args.Handled <- true
)
args.Handled <- true
)