From 01c66955f6136304d5eb1e09ed935ed91c35fda1 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 4 Jul 2007 20:19:36 +0000
Subject: [PATCH] Important followup to last commit: Makes EnsureActiveDatabase
 accessible in other units.

---
 source/childwin.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/childwin.pas b/source/childwin.pas
index b6239b98..74a44502 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -481,7 +481,6 @@ type
       procedure WaitForQueryCompletion(WaitForm: TForm);
       function RunThreadedQuery(AQuery : String) : TMysqlQuery;
       procedure DisplayRowCountStats(ds: TDataSet);
-      procedure EnsureActiveDatabase;
 
     public
       ActualDatabase             : String;
@@ -511,6 +510,7 @@ type
       function RefreshActiveDbTableList: TDataSet;
       procedure ClearAllTableLists;
       procedure UpdateTreeTableList;
+      procedure EnsureActiveDatabase;
   end;