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

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.