projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix an exception when opening the links from the about window
[master-thesis.git]
/
Parasitemia
/
ParasitemiaUI
/
CommandLineArguments.fs
diff --git
a/Parasitemia/ParasitemiaUI/CommandLineArguments.fs
b/Parasitemia/ParasitemiaUI/CommandLineArguments.fs
index
8025ebf
..
02d7979
100644
(file)
--- a/
Parasitemia/ParasitemiaUI/CommandLineArguments.fs
+++ b/
Parasitemia/ParasitemiaUI/CommandLineArguments.fs
@@
-1,12
+1,11
@@
module ParasitemiaUI.CommandLineArguments
module ParasitemiaUI.CommandLineArguments
-open System
open System.Windows
open System.Windows
-open System.Windows.Controls
-open
System.Diagnostic
s
+
+open
ParasitemiaUIControl
s
let showWindow (parent : Window) =
let showWindow (parent : Window) =
- let win =
Views.
CommandLineArgumentsWindow ()
+ let win = CommandLineArgumentsWindow ()
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.