Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r571 -r593
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 571)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 593)
@@ -6,7 +6,7 @@
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
-  Main, ApplicationContext, Subscherm,
+  Navigator, ApplicationContext, Subscherm,
   UserAgent;
 
 type
@@ -27,7 +27,7 @@
     FUserAgent: TUserAgent;
     procedure Login();
   public
-    Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; UserAgent: TUserAgent);
+    Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext; UserAgent: TUserAgent);
   end;
 
 implementation
@@ -37,7 +37,7 @@
 
 {$R *.dfm}
 
-constructor TFormLogin.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext;
+constructor TFormLogin.Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
   UserAgent: TUserAgent);
 begin
   inherited Create(AOwner, Navigator, ApplicationContext);
@@ -99,7 +99,7 @@
 
   if ApplicationContext.UserContext.IsOK then
   begin
-    self.Navigator.NavigeerNaar(Main.NAVZOEKPRODUCTEN);
+    self.Navigator.NavigeerNaar(NAVHOME);
   end
   else
   begin