From a4b85e5943930e4a320ba269b4605ac6b4af2309 Mon Sep 17 00:00:00 2001
From: balazs <balazs@lazarus-ide.org>
Date: Tue, 11 Dec 2018 05:49:39 +0000
Subject: [PATCH] Opkman: Create main data module sooner.

git-svn-id: trunk@59789 -
---
 .../onlinepackagemanagerintf.pas                 | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/components/onlinepackagemanager/onlinepackagemanagerintf.pas b/components/onlinepackagemanager/onlinepackagemanagerintf.pas
index d3def71b76..40bd2cbb26 100644
--- a/components/onlinepackagemanager/onlinepackagemanagerintf.pas
+++ b/components/onlinepackagemanager/onlinepackagemanagerintf.pas
@@ -42,18 +42,12 @@ uses opkman_const, opkman_mainfrm, opkman_maindm, opkman_intf;
 
 procedure IDEMenuSectionClicked(Sender: TObject);
 begin
-  MainDM := TMainDM.Create(nil);
+  MainFrm := TMainFrm.Create(nil);
   try
-    MainFrm := TMainFrm.Create(nil);
-    try
-      MainFrm.ShowModal;
-    finally
-      MainFrm.Free;
-      MainFrm := nil;
-    end;
+    MainFrm.ShowModal;
   finally
-    MainDM.Free;
-    MainDM := nil;
+    MainFrm.Free;
+    MainFrm := nil;
   end;
 end;
 
@@ -76,9 +70,11 @@ begin
 end;
 
 initialization
+  MainDM := TMainDM.Create(nil);
   OPMInterface := TOPMInterfaceEx.Create;
 
 finalization
   OPMInterface.Free;
+  MainDM.Free;
 end.