X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FCommandLineArguments.fs;h=02d79793e08a78e74bff5a5aef14993191b48fdf;hp=8025ebf04a8fdbec5c716783262beef2ab3ec9d7;hb=HEAD;hpb=42d4db26f30bccbcc2e1b6d1f82a5b04a1f3dcd2

diff --git a/Parasitemia/ParasitemiaUI/CommandLineArguments.fs b/Parasitemia/ParasitemiaUI/CommandLineArguments.fs
index 8025ebf..02d7979 100644
--- a/Parasitemia/ParasitemiaUI/CommandLineArguments.fs
+++ b/Parasitemia/ParasitemiaUI/CommandLineArguments.fs
@@ -1,12 +1,11 @@
 module ParasitemiaUI.CommandLineArguments
 
-open System
 open System.Windows
-open System.Windows.Controls
-open System.Diagnostics
+
+open ParasitemiaUIControls
 
 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.