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

---
 UConfig.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'UConfig.pas')

diff --git a/UConfig.pas b/UConfig.pas
index f66c732..d1ca13a 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -106,6 +106,7 @@ var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems,
     ConfTempPath: string;
     ConfUseSmoothScrolling: boolean;
 
+    ApplicationShuttingDown: boolean;
 
 
 
@@ -1038,9 +1039,9 @@ begin
   Result := ChangedMainGUI or ChangedAssoc or ChangedBookmarks or ChangedMounter or ChangedConnections;
   InternalMainGUIConfmtime := GetFileTime(s + 'gui');
   InternalFAssocConfmtime := GetFileTime(s + 'filetypes');
-  InternalBookmarksConfmtime := GetFileTime(s + 'bookmarks'); 
-  InternalMounterConfmtime := GetFileTime(s + 'mounter'); 
-  InternalConnMgrConfmtime := GetFileTime(s + 'connmgr'); 
+  InternalBookmarksConfmtime := GetFileTime(s + 'bookmarks');
+  InternalMounterConfmtime := GetFileTime(s + 'mounter');
+  InternalConnMgrConfmtime := GetFileTime(s + 'connmgr');
 end;
 
 (********************************************************************************************************************************)
@@ -1119,6 +1120,7 @@ end;
 
 
 initialization
+  ApplicationShuttingDown := False;
   SetDefaults;
   ParseCMDLine;
   {$IFDEF FPC}
@@ -1156,7 +1158,7 @@ initialization
 finalization
   //  Save the settings
   WriteBookmarks;
-  WriteConnections;
+//  WriteConnections;  -- not needed, saving when Connection Manager closes
   WriteMainSettings;
   if ConfSavePanelTabs then begin
     WriteTabs(True, LeftPanelTabs, LeftTabSortIDs, LeftTabSortTypes);
-- 
cgit v1.2.3