From cc26194868d09d397b39c22423c25f6bfe9fc5fc Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com>
Date: Fri, 22 Aug 2008 11:30:29 +0200
Subject: Workaround configuration lost on slower systems

---
 UMain.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index 99cbfbc..fd11934 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1112,6 +1112,8 @@ begin
     end;
   end;  
 
+  ApplicationShuttingDown := True;  //  Avoid emitting config files refresh event
+  
   //  Close all active connections
   if b then begin
     if (not LeftPanelNotebook.Visible) and (LeftPanelEngine is TVFSEngine) then CloseVFS(True, True)
@@ -4591,6 +4593,10 @@ var ChangedMainGUI, ChangedAssoc, ChangedBookmarks, ChangedMounter, ChangedConnM
 begin
   try
   if (csDestroying in ComponentState) or (not Assigned(FMain)) then Exit;
+  if ApplicationShuttingDown then begin
+    DebugMsg([' *** TFMain.HandleFormFocusIn called when ApplicationShuttingDown, possible bug caught ***']);
+    Exit;
+  end;
   if InternalLockUnlocked then begin
     APerformRefresh := ConfFocusRefresh;
 
-- 
cgit v1.2.3