1
module ParasitemiaUI.CommandLineArguments
5 open ParasitemiaUIControls
7 let showWindow (parent
: Window) =
8 let win = CommandLineArgumentsWindow ()
11 win.Left <- (if parent
.WindowState = WindowState.Maximized then 0. else parent.Left) + parent.ActualWidth / 2. - win.Width / 2.
12 win.Top <- (if parent.WindowState = WindowState.Maximized then 0. else parent.Top) + parent.ActualHeight / 2. - win.Height / 2.
14 win.txtCommandLineArguments
.Text <- Utils.argsHelp
16 win.butClose
.Click.AddHandler (fun obj args
-> win.Close ())
18 win.ShowDialog () |> ignore