1
module ParasitemiaUI.CommandLineArguments
5 open System.Windows.Controls
6 open System.Diagnostics
8 let showWindow (parent
: Window) =
9 let win = Views.CommandLineArgumentsWindow ()
12 win.Left <- (if parent
.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Width / 2.
13 win.Top <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Top) + parent.ActualHeight / 2. - win.Height / 2.
15 win.txtCommandLineArguments
.Text <- Utils.argsHelp
17 win.butClose
.Click.AddHandler (fun obj args
-> win.Close ())
19 win.ShowDialog () |> ignore