Initial commitv0.6.36release-0.6.36-dev

1 files changed, 1132 insertions, 0 deletions

diff --git a/UConfig.pas b/UConfig.pas
new file mode 100644
index 0000000..68da691
--- /dev/null
+++ b/UConfig.pas
@@ -0,0 +1,1132 @@
+(*
+    Tux Commander - UConfig - Configuration saving/restoring, various constants
+    Copyright (C) 2008 Tomas Bzatek <tbzatek@users.sourceforge.net>
+    Check for updates on tuxcmd.sourceforge.net
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+*)
+unit UConfig;
+
+interface                   
+
+uses Classes, ULocale;
+
+resourcestring
+  ConstAppTitle = 'Tux Commander';
+  ConstAboutVersion = '0.6.36';
+  ConstAboutBuildDate = '2008-06-01';
+  
+{$IFDEF __FPC__}
+  {$INCLUDE fpcver.inc}
+{$ENDIF}
+
+const ConfDefaultNormalItemFGColor = '#000000';
+      ConfDefaultActiveItemFGColor = '#FFFFFF';
+      ConfDefaultInactiveItemFGColor = '#000000';
+      ConfDefaultSelectedItemFGColor = '#FF0000';
+      ConfDefaultLinkItemFGColor = '#A0A0A0';
+      ConfDefaultDotFileItemFGColor = '#606060';
+      ConfDefaultNormalItemBGColor = '#FFFFFF';
+      ConfDefaultActiveItemBGColor = '#000000';
+      ConfDefaultInactiveItemBGColor = '#D0D0D0';
+
+      ConfSelItemsDelim = ';';
+      ConfDefaultPanelFont = 'Sans 10';
+      ConfDefaultSettingsDir = '.tuxcmd';      //  Also has to be changed in UGTKLoader
+      ConfDblClickDelay = 500;
+      ConfQuickRenameDelay = ConfDblClickDelay + 250;
+      ConfInactiveTimerDelay = 0;
+      ConfEditViewFileSizeLimit = 10*1024*1024;   //  10 MB
+      ConfAppNA = '---';
+      ConfDefaultRowHeight = 16;
+      ConstInternalProgressTimer = 25;    //  default = 25ms
+      ConstRemoteWaitDialogDelay = 800;   //  default = 800ms
+      ConstFileListTipsDelay = 400;
+      ConstFileListTipsDelayNeighbour = 95;
+      ConstNumPanelColumns = 10;
+      ConstPathDelim = '#';
+      ConstFullPathFormatStr = '%s#%s';
+
+      ConstTerminalCommand_xterm = 'xterm -T "TuxCommand" -e sh -c ''%s ; echo -n Press ENTER to exit... ; read''';
+      ConstTerminalCommand_rxvt = 'rxvt -T "TuxCommand" -e sh -c ''%s ; echo -n Press ENTER to exit... ; read''';
+      ConstTerminalCommand_rxvt2 = 'rxvt +si +sw -sl 1000 -g 130x50 -bg black -fg grey -T "TuxCommand" -e sh -c ''%s ; echo -n Press ENTER to exit... ; read''';
+      ConstTerminalCommand_gnometerminal = 'gnome-terminal -t "TuxCommand" --geometry=110x40 --working-directory=%cwd -x sh -c ''%s ; echo -n Press ENTER to exit... ; read''';
+      ConfViewersApps: array[1..6] of string = ('gedit', 'gvim', 'less', 'emacs', 'nano', 'vi');
+      ConfEditorApps: array[1..5] of string = ('gedit', 'gvim', 'emacs', 'nano', 'vi');
+      ConfTerminalApps: array[1..4] of string = (ConstTerminalCommand_xterm, ConstTerminalCommand_rxvt, ConstTerminalCommand_rxvt2, ConstTerminalCommand_gnometerminal);
+      ConfTerminalAppsWParam: array[1..4] of string = ('xterm', 'rxvt', 'rxvt', 'gnome-terminal');
+
+const SMOOTH_SCROLL_STEPS = 5;
+      SMOOTH_SCROLL_DURATION = 45;
+      SMOOTH_SCROLL_STEPS_PAGE = 10;
+      SMOOTH_SCROLL_DURATION_PAGE = 120;
+
+
+
+
+var ConfPanelSep, ConfRowHeight, ConfRowHeightReal, ConfNumHistoryItems,
+    ConfMainWindowWidth, ConfMainWindowHeight, ConfMainWindowPosLeft, ConfMainWindowPosTop, ConfMainWindowState,
+    ConfMainWindowLeftSortColumn, ConfMainWindowLeftSortType, ConfMainWindowRightSortColumn, ConfMainWindowRightSortType,
+    ConfSizeFormat, ConfSizeGroupPrecision, ConfCmdLineTerminalBehaviour, ConfViewerTerminalBehaviour,
+    ConfEditorTerminalBehaviour, ConfLeftTabBarTabIndex, ConfRightTabBarTabIndex, ConfSwitchOtherPanelBehaviour,
+    ConfTabMaxLength: integer;
+
+    ConfLeftPath, ConfRightPath, ConfPanelFont, ConfProfileName, ConfViewer, ConfEditor, ConfTerminalCommand,
+    ConfNormalItemFGColor, ConfActiveItemFGColor, ConfInactiveItemFGColor, ConfSelectedItemFGColor, ConfLinkItemFGColor,
+    ConfDotFileItemFGColor, ConfNormalItemBGColor, ConfActiveItemBGColor, ConfInactiveItemBGColor,
+    ParamLeftDir, ParamRightDir: string;
+
+    ParamDebug, ConfShowDotFiles, ConfClearReadOnlyAttr, ConfDisableMouseRename, ConfUseSystemFont, ConfUseFileTypeIcons,
+    ConfFocusRefresh, ConfNewStyleAltO, ConfDirsInBold, ConfDisableDirectoryBrackets, ParamDisableGnome, ConfWMCompatMode,
+    ConfUseLibcSystem, ConfUseInternalViewer, ParamDisablePlugins: boolean;
+    ConfNormalItemDefaultColors, ConfCursorDefaultColors, ConfInactiveItemDefaultColors, ConfSelectedItemDefaultColors,
+    ConfLinkItemDefaultColors, ConfDotFileItemDefaultColors, ConfLynxLikeMotion, ConfSizeGroupRequestZeroDigits,
+    ConfDisableFileTips, ConfInsMoveDown, ConfSpaceMovesDown, ConfShowFuncButtons, ConfSelectAllDirs, ConfOctalPerm: boolean;
+    ConfMounterUseFSTab, ConfShowTextUIDs, ConfMounterPushDown, ConfSavePanelTabs, ConfDuplicateTabWarning,
+    ConfOpenConnectionsWarning: boolean;
+
+    ConfShowMounterBar: integer;
+    ConfColumnSizes, ConfColumnIDs: array[1..ConstNumPanelColumns] of integer;
+    ConfColumnVisible: array[1..ConstNumPanelColumns] of boolean;
+    ConfUseURI: boolean;
+    ConfColumnTitlesLong, ConfColumnTitlesShort: array[1..ConstNumPanelColumns] of string;
+    ConfParamForceLang: string;
+    ConfTempPath: string;
+    ConfUseSmoothScrolling: boolean;
+
+
+
+
+procedure SetDefaults;
+procedure ReadMainSettings;
+procedure WriteMainSettings;
+procedure ReadMainGUISettings;
+procedure WriteMainGUISettings;
+procedure ReadAssoc;
+procedure WriteAssoc;
+procedure ReadBookmarks;
+procedure WriteBookmarks;
+procedure ReadMounter;
+procedure WriteMounter;
+procedure ReadTabs(const LeftPanel: boolean; TabList: TStringList; TabSortIDs, TabSortTypes: TList);
+procedure WriteTabs(const LeftPanel: boolean; TabList: TStringList; TabSortIDs, TabSortTypes: TList);
+procedure ReadConnections;
+procedure WriteConnections;
+procedure SearchForDefaultApps;
+function CheckConfFilesMod(var ChangedMainGUI, ChangedAssoc, ChangedBookmarks, ChangedMounter, ChangedConnections: boolean): boolean;
+//   Returns True if something has changed
+
+implementation
+
+uses Libc, SysUtils, IniFiles, UCoreUtils, UCore, UFileAssoc, UCoreClasses, UGnome, UVFSCore;
+
+var InternalQuickExit, InternalDeleteHistory: boolean;
+    InternalMainGUIConfmtime, InternalBookmarksConfmtime, InternalFAssocConfmtime, InternalMounterConfmtime,
+    InternalConnMgrConfmtime: Longint;
+
+
+function GetFileTime(FileName: string): Longint; forward;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure SetDefaults;
+var i: integer;
+begin
+  InternalMainGUIConfmtime := -1;
+  InternalBookmarksConfmtime := -1;
+  InternalFAssocConfmtime := -1;
+  InternalMounterConfmtime := -1;
+  InternalConnMgrConfmtime := -1;
+  InternalQuickExit := False;
+  ConfPanelSep := 50;
+  ConfLeftPath := '/';
+  ConfRightPath := '/';
+  ConfColumnSizes[1] := 150;   //  Name
+  ConfColumnSizes[2] := 190;   //  Name + Extension
+  ConfColumnSizes[3] := 40;    //  Extension
+  ConfColumnSizes[4] := 90;    //  Size
+  ConfColumnSizes[5] := 75;    //  Date + Time
+  ConfColumnSizes[6] := 40;    //  Date
+  ConfColumnSizes[7] := 40;    //  Time
+  ConfColumnSizes[8] := 40;    //  User
+  ConfColumnSizes[9] := 40;    //  Group
+  ConfColumnSizes[10] := 70;   //  Attributes
+  for i := 1 to ConstNumPanelColumns do ConfColumnIDs[i] := i;
+  ConfColumnVisible[1] := True;
+  ConfColumnVisible[2] := False;
+  ConfColumnVisible[3] := True;
+  ConfColumnVisible[4] := True;
+  ConfColumnVisible[5] := True;
+  ConfColumnVisible[6] := False;
+  ConfColumnVisible[7] := False;
+  ConfColumnVisible[8] := False;
+  ConfColumnVisible[9] := False;
+  ConfColumnVisible[10] := True;
+  ConfRowHeight := -1;
+  ConfRowHeightReal := ConfDefaultRowHeight;
+  ConfPanelFont := ConfDefaultPanelFont;
+  ConfProfileName := 'Profile_Default';
+  ParamDebug := False;
+  ConfShowDotFiles := False;
+  ConfClearReadOnlyAttr := True;
+  ConfViewer := ConfAppNA;
+  ConfEditor := ConfAppNA;
+  ConfTerminalCommand := ConfAppNA;
+  ConfNumHistoryItems := 20;
+  ConfDisableMouseRename := False;
+  InternalDeleteHistory := False;
+  ConfUseSystemFont := True;
+  ConfUseFileTypeIcons := True;
+  ConfMainWindowWidth := 800;
+  ConfMainWindowHeight := 600;
+  ConfMainWindowPosLeft := -1;
+  ConfMainWindowPosTop := -1;
+  ConfMainWindowState := 0;
+  ConfMainWindowLeftSortColumn := 0;
+  ConfMainWindowLeftSortType := 0;   //  soAscending
+  ConfMainWindowRightSortColumn := 0;
+  ConfMainWindowRightSortType := 0;
+  ConfFocusRefresh := False;
+  ConfLynxLikeMotion := False;
+  ConfSizeFormat := 0;
+  ConfSizeGroupPrecision := 2;
+  ConfSizeGroupRequestZeroDigits := True;
+  ConfNewStyleAltO := True;
+  ConfDirsInBold := False;
+  ConfDisableDirectoryBrackets := False;
+  ParamDisableGnome := False;
+  ConfWMCompatMode := False;
+  ConfDisableFileTips := False;
+  ConfInsMoveDown := True;
+  ConfSpaceMovesDown := False;
+  ConfShowFuncButtons := True;
+  ConfSelectAllDirs := True;
+  ConfOctalPerm := False;
+  ConfCmdLineTerminalBehaviour := 0;    //  0 = Autodetect, 1 = Terminal, 2 = no term.
+  ConfViewerTerminalBehaviour := 0;
+  ConfEditorTerminalBehaviour := 0;
+  ConfUseLibcSystem := False;
+  ConfUseInternalViewer := False;
+  ConfMounterUseFSTab := True;
+  ConfShowMounterBar := 1;              //  0 = No mounter bar, 1 = one mounter bar, 2 = two mounter bars above the panels
+  ConfShowTextUIDs := True;
+  ConfMounterPushDown := False;
+  ConfUseURI := False;
+  ParamDisablePlugins := False;
+  ParamLeftDir := '';
+  ParamRightDir := '';
+  ConfLeftTabBarTabIndex := -1;
+  ConfRightTabBarTabIndex := -1;
+  ConfSavePanelTabs := True;
+  ConfParamForceLang := '';
+  ConfSwitchOtherPanelBehaviour := -1;
+  ConfDuplicateTabWarning := True;
+  ConfOpenConnectionsWarning := True;
+  ConfTabMaxLength := 25;
+  ConfTempPath := '/tmp/tuxcmd';
+  ConfUseSmoothScrolling := False;
+
+  //  Setup default values for colors
+  ConfNormalItemFGColor := ConfDefaultNormalItemFGColor;
+  ConfNormalItemBGColor := ConfDefaultNormalItemBGColor;
+  ConfActiveItemFGColor := ConfDefaultActiveItemFGColor;
+  ConfActiveItemBGColor := ConfDefaultActiveItemBGColor;
+  ConfInactiveItemFGColor := ConfDefaultInactiveItemFGColor;
+  ConfInactiveItemBGColor := ConfDefaultInactiveItemBGColor;
+  ConfSelectedItemFGColor := ConfDefaultSelectedItemFGColor;
+  ConfLinkItemFGColor := ConfDefaultLinkItemFGColor;
+  ConfDotFileItemFGColor := ConfDefaultDotFileItemFGColor;
+  ConfNormalItemDefaultColors := False;
+  ConfCursorDefaultColors := False;
+  ConfInactiveItemDefaultColors := False;
+  ConfSelectedItemDefaultColors := False;
+  ConfLinkItemDefaultColors := False;
+  ConfDotFileItemDefaultColors := False;
+  SetupColors;
+end;
+
+procedure ReadMainSettings;
+var s: string;
+    IniFile: TMyIniFile;
+    i, j: integer;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read user settings']);
+      Exit;
+    end;
+
+  DebugMsg(['Using profile ''', ConfProfileName, '''']);
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'options', True);
+  try
+    if ParamLeftDir <> '' then ConfLeftPath := ParamLeftDir else
+      ConfLeftPath := IniFile.ReadString(ConfProfileName, 'LeftPath', ConfLeftPath);
+    if ParamRightDir <> '' then ConfRightPath := ParamRightDir else
+      ConfRightPath := IniFile.ReadString(ConfProfileName, 'RightPath', ConfRightPath);
+    ConfShowDotFiles := IniFile.ReadBool(ConfProfileName, 'ShowDotFiles', ConfShowDotFiles);
+    ConfPanelSep := IniFile.ReadInteger(ConfProfileName, 'PanelSep', ConfPanelSep);
+    ConfMainWindowWidth := IniFile.ReadInteger(ConfProfileName, 'MainWindowWidth', ConfMainWindowWidth);
+    ConfMainWindowHeight := IniFile.ReadInteger(ConfProfileName, 'MainWindowHeight', ConfMainWindowHeight);
+    ConfMainWindowPosLeft := IniFile.ReadInteger(ConfProfileName, 'MainWindowPosLeft', ConfMainWindowPosLeft);
+    ConfMainWindowPosTop := IniFile.ReadInteger(ConfProfileName, 'MainWindowPosTop', ConfMainWindowPosTop);
+    ConfMainWindowState := IniFile.ReadInteger(ConfProfileName, 'MainWindowState', ConfMainWindowState);
+    for i := 1 to ConstNumPanelColumns do begin
+      ConfColumnSizes[i] := IniFile.ReadInteger(ConfProfileName, Format('ColumnSize[%d]', [i]), ConfColumnSizes[i]);
+      ConfColumnIDs[i] := IniFile.ReadInteger(ConfProfileName, Format('ColumnIDs[%d]', [i]), ConfColumnIDs[i]);
+      ConfColumnVisible[i] := IniFile.ReadBool(ConfProfileName, Format('ColumnVisible[%d]', [i]), ConfColumnVisible[i]);
+    end;
+    ConfMainWindowLeftSortColumn := IniFile.ReadInteger(ConfProfileName, 'MainWindowLeftSortColumn', ConfMainWindowLeftSortColumn);
+    ConfMainWindowLeftSortType := IniFile.ReadInteger(ConfProfileName, 'MainWindowLeftSortType', ConfMainWindowLeftSortType);
+    ConfMainWindowRightSortColumn := IniFile.ReadInteger(ConfProfileName, 'MainWindowRightSortColumn', ConfMainWindowRightSortColumn);
+    ConfMainWindowRightSortType := IniFile.ReadInteger(ConfProfileName, 'MainWindowRightSortType', ConfMainWindowRightSortType);
+    if not InternalDeleteHistory then begin
+      i := IniFile.ReadInteger('CommandLineHistory', 'NumItems', 0);
+      if i > 0 then
+        for j := 0 to i - 1 do
+          CommandLineHistory.Add(IniFile.ReadString('CommandLineHistory', Format('Item%d', [j]), ''));
+      i := IniFile.ReadInteger('SelectHistory', 'NumItems', 0);
+      if i > 0 then
+        for j := 0 to i - 1 do begin
+          s := IniFile.ReadString('SelectHistory', Format('Item%d', [j]), '');
+          if s <> '*.*' then SelectHistory.Add(s);
+        end;
+      i := IniFile.ReadInteger('SearchHistory', 'NumItems', 0);
+      if i > 0 then
+        for j := 0 to i - 1 do
+          SearchHistory.Add(IniFile.ReadString('SearchHistory', Format('Item%d', [j]), ''));
+    end;
+    ConfShowMounterBar := IniFile.ReadInteger(ConfProfileName, 'ShowMounterBar', ConfShowMounterBar);
+
+  finally
+    try IniFile.Free; except end;
+  end;
+  except end;
+end;
+
+procedure WriteMainSettings;
+var s: string;
+    IniFile: TMyIniFile;
+    i: integer;
+begin
+  if InternalQuickExit then Exit;
+  ConfLeftPath := LeftLocalEngine.Path;
+  ConfRightPath := RightLocalEngine.Path;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save user settings']);
+      Exit;
+    end;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'options', False);
+  try try
+    IniFile.WriteString(ConfProfileName, 'LeftPath', ConfLeftPath);
+    IniFile.WriteString(ConfProfileName, 'RightPath', ConfRightPath);
+    IniFile.WriteBool(ConfProfileName, 'ShowDotFiles', ConfShowDotFiles);
+    IniFile.WriteInteger(ConfProfileName, 'PanelSep', ConfPanelSep);
+    IniFile.WriteInteger(ConfProfileName, 'MainWindowState', ConfMainWindowState);
+    if ConfMainWindowState <> 4 then begin
+      IniFile.WriteInteger(ConfProfileName, 'MainWindowWidth', ConfMainWindowWidth);
+      IniFile.WriteInteger(ConfProfileName, 'MainWindowHeight', ConfMainWindowHeight);
+      IniFile.WriteInteger(ConfProfileName, 'MainWindowPosLeft', ConfMainWindowPosLeft);
+      IniFile.WriteInteger(ConfProfileName, 'MainWindowPosTop', ConfMainWindowPosTop);
+    end;
+    for i := 1 to ConstNumPanelColumns do begin
+      IniFile.WriteInteger(ConfProfileName, Format('ColumnSize[%d]', [i]), ConfColumnSizes[i]);
+      IniFile.WriteInteger(ConfProfileName, Format('ColumnIDs[%d]', [i]), ConfColumnIDs[i]);
+      IniFile.WriteBool(ConfProfileName, Format('ColumnVisible[%d]', [i]), ConfColumnVisible[i]);
+    end;
+    IniFile.WriteInteger(ConfProfileName, 'MainWindowLeftSortColumn', ConfMainWindowLeftSortColumn);
+    IniFile.WriteInteger(ConfProfileName, 'MainWindowLeftSortType', ConfMainWindowLeftSortType);
+    IniFile.WriteInteger(ConfProfileName, 'MainWindowRightSortColumn', ConfMainWindowRightSortColumn);
+    IniFile.WriteInteger(ConfProfileName, 'MainWindowRightSortType', ConfMainWindowRightSortType);
+    IniFile.WriteInteger('CommandLineHistory', 'NumItems', CommandLineHistory.Count);
+    IniFile.WriteInteger('SelectHistory', 'NumItems', SelectHistory.Count);
+    IniFile.WriteInteger('SearchHistory', 'NumItems', SearchHistory.Count);
+    if CommandLineHistory.Count > 0 then
+      for i := 0 to CommandLineHistory.Count - 1 do
+        IniFile.WriteString('CommandLineHistory', Format('Item%d', [i]), CommandLineHistory[i]);
+    if SelectHistory.Count > 0 then
+      for i := 0 to SelectHistory.Count - 1 do
+        IniFile.WriteString('SelectHistory', Format('Item%d', [i]), SelectHistory[i]);
+    if SearchHistory.Count > 0 then
+      for i := 0 to SearchHistory.Count - 1 do
+        IniFile.WriteString('SearchHistory', Format('Item%d', [i]), SearchHistory[i]);
+    IniFile.WriteInteger(ConfProfileName, 'ShowMounterBar', ConfShowMounterBar);
+
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]);
+  end;
+  finally
+    IniFile.Free;
+  end;
+  except end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadMainGUISettings;
+var s: string;
+    IniFile: TMyIniFile;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read user settings']);
+      Exit;
+    end;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'gui', True);
+  try
+    ConfPanelFont := IniFile.ReadString(ConfProfileName, 'PanelFont', ConfDefaultPanelFont);
+    ConfRowHeight := IniFile.ReadInteger(ConfProfileName, 'RowHeight', ConfRowHeight);
+    if ConfRowHeight > 0 then ConfRowHeightReal := ConfRowHeight;
+    ConfClearReadOnlyAttr := IniFile.ReadBool(ConfProfileName, 'ClearReadOnlyAttr', ConfClearReadOnlyAttr);
+    ConfViewer := IniFile.ReadString(ConfProfileName, 'Viewer', ConfViewer);
+    ConfEditor := IniFile.ReadString(ConfProfileName, 'Editor', ConfEditor);
+    ConfTerminalCommand := IniFile.ReadString(ConfProfileName, 'TerminalCommand', ConfTerminalCommand);
+    ConfNumHistoryItems := IniFile.ReadInteger('General', 'NumHistoryItems', ConfNumHistoryItems);
+    ConfDisableMouseRename := IniFile.ReadBool(ConfProfileName, 'DisableMouseRename', ConfDisableMouseRename);
+    ConfUseSystemFont := IniFile.ReadBool(ConfProfileName, 'UseSystemFont', ConfUseSystemFont);
+    ConfUseFileTypeIcons := IniFile.ReadBool(ConfProfileName, 'UseFileTypeIcons', ConfUseFileTypeIcons);
+    //  Read color settings
+    ConfNormalItemFGColor := IniFile.ReadString(ConfProfileName, 'NormalItemFGColor', ConfNormalItemFGColor);
+    ConfNormalItemBGColor := IniFile.ReadString(ConfProfileName, 'NormalItemBGColor', ConfNormalItemBGColor);
+    ConfActiveItemFGColor := IniFile.ReadString(ConfProfileName, 'ActiveItemFGColor', ConfActiveItemFGColor);
+    ConfActiveItemBGColor := IniFile.ReadString(ConfProfileName, 'ActiveItemBGColor', ConfActiveItemBGColor);
+    ConfInactiveItemFGColor := IniFile.ReadString(ConfProfileName, 'InactiveItemFGColor', ConfInactiveItemFGColor);
+    ConfInactiveItemBGColor := IniFile.ReadString(ConfProfileName, 'InactiveItemBGColor', ConfInactiveItemBGColor);
+    ConfSelectedItemFGColor := IniFile.ReadString(ConfProfileName, 'SelectedItemFGColor', ConfSelectedItemFGColor);
+    ConfLinkItemFGColor := IniFile.ReadString(ConfProfileName, 'LinkItemFGColor', ConfLinkItemFGColor);
+    ConfDotFileItemFGColor := IniFile.ReadString(ConfProfileName, 'DotFileItemFGColor', ConfDotFileItemFGColor);
+    ConfNormalItemDefaultColors := IniFile.ReadBool(ConfProfileName, 'NormalItemDefaultColors', ConfNormalItemDefaultColors);
+    ConfCursorDefaultColors := IniFile.ReadBool(ConfProfileName, 'CursorDefaultColors', ConfCursorDefaultColors);
+    ConfInactiveItemDefaultColors := IniFile.ReadBool(ConfProfileName, 'InactiveItemDefaultColors', ConfInactiveItemDefaultColors);
+    ConfSelectedItemDefaultColors := IniFile.ReadBool(ConfProfileName, 'SelectedItemDefaultColors', ConfSelectedItemDefaultColors);
+    ConfLinkItemDefaultColors := IniFile.ReadBool(ConfProfileName, 'LinkItemDefaultColors', ConfLinkItemDefaultColors);
+    ConfDotFileItemDefaultColors := IniFile.ReadBool(ConfProfileName, 'DotFileItemDefaultColors', ConfDotFileItemDefaultColors);
+    ConfLynxLikeMotion := IniFile.ReadBool(ConfProfileName, 'LynxLikeMotion', ConfLynxLikeMotion);
+    ConfDirsInBold := IniFile.ReadBool(ConfProfileName, 'DirsInBold', ConfDirsInBold);
+    ConfNewStyleAltO := IniFile.ReadBool(ConfProfileName, 'NewStyleAltO', ConfNewStyleAltO);
+    ConfWMCompatMode := IniFile.ReadBool(ConfProfileName, 'WMCompatibilityMode', ConfWMCompatMode);
+    ConfDisableFileTips := IniFile.ReadBool(ConfProfileName, 'DisableFileTips', ConfDisableFileTips);
+    ConfDisableDirectoryBrackets := IniFile.ReadBool(ConfProfileName, 'DisableDirectoryBrackets', ConfDisableDirectoryBrackets);
+    ConfInsMoveDown := IniFile.ReadBool(ConfProfileName, 'InsMoveDown', ConfInsMoveDown);
+    ConfSpaceMovesDown := IniFile.ReadBool(ConfProfileName, 'SpaceMovesDown', ConfSpaceMovesDown);
+    ConfSelectAllDirs := IniFile.ReadBool(ConfProfileName, 'SelectAllDirs', ConfSelectAllDirs);
+    ConfShowFuncButtons := IniFile.ReadBool(ConfProfileName, 'ShowFuncButtons', ConfShowFuncButtons);
+    ConfOctalPerm := IniFile.ReadBool(ConfProfileName, 'OctalPerm', ConfOctalPerm);
+    ConfFocusRefresh := IniFile.ReadBool(ConfProfileName, 'FocusRefresh', ConfFocusRefresh);
+    ConfSizeFormat := IniFile.ReadInteger(ConfProfileName, 'SizeFormat', ConfSizeFormat);
+    ConfSizeGroupPrecision := IniFile.ReadInteger(ConfProfileName, 'SizeGroupPrecision', ConfSizeGroupPrecision);
+    ConfSizeGroupRequestZeroDigits := IniFile.ReadBool(ConfProfileName, 'SizeGroupRequestZeroDigits', ConfSizeGroupRequestZeroDigits);
+    ConfCmdLineTerminalBehaviour := IniFile.ReadInteger(ConfProfileName, 'CmdLineTerminalBehaviour', ConfCmdLineTerminalBehaviour);
+    ConfViewerTerminalBehaviour := IniFile.ReadInteger(ConfProfileName, 'ViewerTerminalBehaviour', ConfViewerTerminalBehaviour);
+    ConfEditorTerminalBehaviour := IniFile.ReadInteger(ConfProfileName, 'EditorTerminalBehaviour', ConfEditorTerminalBehaviour);
+    ConfUseLibcSystem := IniFile.ReadBool(ConfProfileName, 'CompatUseLibcSystem', ConfUseLibcSystem);
+    ConfUseInternalViewer := IniFile.ReadBool(ConfProfileName, 'UseInternalViewer', ConfUseInternalViewer);
+    ConfSwitchOtherPanelBehaviour := IniFile.ReadInteger(ConfProfileName, 'SwitchOtherPanelBehaviour', ConfSwitchOtherPanelBehaviour);
+    ConfDuplicateTabWarning := IniFile.ReadBool(ConfProfileName, 'DuplicateTabWarning', ConfDuplicateTabWarning);
+    ConfOpenConnectionsWarning := IniFile.ReadBool(ConfProfileName, 'OpenConnectionsWarning', ConfOpenConnectionsWarning);
+    ConfShowTextUIDs := IniFile.ReadBool(ConfProfileName, 'ShowTextUIDs', ConfShowTextUIDs);
+
+
+    (*********************************************  NEW !!!! *************************************************)
+    ConfSavePanelTabs := IniFile.ReadBool(ConfProfileName, 'SavePanelTabs', ConfSavePanelTabs);
+    ConfTabMaxLength := IniFile.ReadInteger(ConfProfileName, 'TabMaxLength', ConfTabMaxLength);
+    ConfTempPath := IniFile.ReadString(ConfProfileName, 'TempPath', ConfTempPath);
+    ConfUseSmoothScrolling := IniFile.ReadBool(ConfProfileName, 'UseSmoothScrolling', ConfUseSmoothScrolling);
+
+
+    SearchForDefaultApps;
+  finally
+    try IniFile.Free; except end;
+    InternalMainGUIConfmtime := GetFileTime(IncludeTrailingPathDelimiter(s) + 'gui');
+  end;
+  except end;
+end;
+
+procedure WriteMainGUISettings;
+var s: string;
+    IniFile: TMyIniFile;
+begin
+  if InternalQuickExit then Exit;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save user settings']);
+      Exit;
+    end;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'gui', False);
+  try try
+    IniFile.WriteString(ConfProfileName, 'PanelFont', ConfPanelFont);
+    IniFile.WriteInteger(ConfProfileName, 'RowHeight', ConfRowHeight);
+    IniFile.WriteBool(ConfProfileName, 'ClearReadOnlyAttr', ConfClearReadOnlyAttr);
+    IniFile.WriteString(ConfProfileName, 'Viewer', ConfViewer);
+    IniFile.WriteString(ConfProfileName, 'Editor', ConfEditor);
+    IniFile.WriteString(ConfProfileName, 'TerminalCommand', ConfTerminalCommand);
+    IniFile.WriteInteger('General', 'NumHistoryItems', ConfNumHistoryItems);
+    IniFile.WriteBool(ConfProfileName, 'DisableMouseRename', ConfDisableMouseRename);
+    IniFile.WriteBool(ConfProfileName, 'UseSystemFont', ConfUseSystemFont);
+    IniFile.WriteBool(ConfProfileName, 'UseFileTypeIcons', ConfUseFileTypeIcons);
+
+    //  Save color settings
+    IniFile.WriteString(ConfProfileName, 'NormalItemFGColor', ConfNormalItemFGColor);
+    IniFile.WriteString(ConfProfileName, 'NormalItemBGColor', ConfNormalItemBGColor);
+    IniFile.WriteString(ConfProfileName, 'ActiveItemFGColor', ConfActiveItemFGColor);
+    IniFile.WriteString(ConfProfileName, 'ActiveItemBGColor', ConfActiveItemBGColor);
+    IniFile.WriteString(ConfProfileName, 'InactiveItemFGColor', ConfInactiveItemFGColor);
+    IniFile.WriteString(ConfProfileName, 'InactiveItemBGColor', ConfInactiveItemBGColor);
+    IniFile.WriteString(ConfProfileName, 'SelectedItemFGColor', ConfSelectedItemFGColor);
+    IniFile.WriteString(ConfProfileName, 'LinkItemFGColor', ConfLinkItemFGColor);
+    IniFile.WriteString(ConfProfileName, 'DotFileItemFGColor', ConfDotFileItemFGColor);
+    IniFile.WriteBool(ConfProfileName, 'NormalItemDefaultColors', ConfNormalItemDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'CursorDefaultColors', ConfCursorDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'InactiveItemDefaultColors', ConfInactiveItemDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'SelectedItemDefaultColors', ConfSelectedItemDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'LinkItemDefaultColors', ConfLinkItemDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'DotFileItemDefaultColors', ConfDotFileItemDefaultColors);
+    IniFile.WriteBool(ConfProfileName, 'LynxLikeMotion', ConfLynxLikeMotion);
+    IniFile.WriteInteger(ConfProfileName, 'SizeFormat', ConfSizeFormat);
+    IniFile.WriteInteger(ConfProfileName, 'SizeGroupPrecision', ConfSizeGroupPrecision);
+    IniFile.WriteBool(ConfProfileName, 'SizeGroupRequestZeroDigits', ConfSizeGroupRequestZeroDigits);
+    IniFile.WriteBool(ConfProfileName, 'NewStyleAltO', ConfNewStyleAltO);
+    IniFile.WriteBool(ConfProfileName, 'DirsInBold', ConfDirsInBold);
+    IniFile.WriteBool(ConfProfileName, 'DisableDirectoryBrackets', ConfDisableDirectoryBrackets);
+    IniFile.WriteBool(ConfProfileName, 'WMCompatibilityMode', ConfWMCompatMode);
+    IniFile.WriteBool(ConfProfileName, 'DisableFileTips', ConfDisableFileTips);
+    IniFile.WriteBool(ConfProfileName, 'InsMoveDown', ConfInsMoveDown);
+    IniFile.WriteBool(ConfProfileName, 'SpaceMovesDown', ConfSpaceMovesDown);
+    IniFile.WriteBool(ConfProfileName, 'ShowFuncButtons', ConfShowFuncButtons);
+    IniFile.WriteBool(ConfProfileName, 'SelectAllDirs', ConfSelectAllDirs);
+    IniFile.WriteBool(ConfProfileName, 'OctalPerm', ConfOctalPerm);
+    IniFile.WriteBool(ConfProfileName, 'FocusRefresh', ConfFocusRefresh);
+    IniFile.WriteInteger(ConfProfileName, 'CmdLineTerminalBehaviour', ConfCmdLineTerminalBehaviour);
+    IniFile.WriteInteger(ConfProfileName, 'ViewerTerminalBehaviour', ConfViewerTerminalBehaviour);
+    IniFile.WriteInteger(ConfProfileName, 'EditorTerminalBehaviour', ConfEditorTerminalBehaviour);
+    IniFile.WriteBool(ConfProfileName, 'CompatUseLibcSystem', ConfUseLibcSystem);
+    IniFile.WriteBool(ConfProfileName, 'UseInternalViewer', ConfUseInternalViewer);
+    IniFile.WriteInteger(ConfProfileName, 'SwitchOtherPanelBehaviour', ConfSwitchOtherPanelBehaviour);
+    IniFile.WriteBool(ConfProfileName, 'DuplicateTabWarning', ConfDuplicateTabWarning);
+    IniFile.WriteBool(ConfProfileName, 'OpenConnectionsWarning', ConfOpenConnectionsWarning);
+    IniFile.WriteBool(ConfProfileName, 'ShowTextUIDs', ConfShowTextUIDs);
+
+    (*********************************************  NEW !!!! *************************************************)
+    IniFile.WriteBool(ConfProfileName, 'SavePanelTabs', ConfSavePanelTabs);
+    IniFile.WriteInteger(ConfProfileName, 'TabMaxLength', ConfTabMaxLength);
+    IniFile.WriteString(ConfProfileName, 'TempPath', ConfTempPath);
+    IniFile.WriteBool(ConfProfileName, 'UseSmoothScrolling', ConfUseSmoothScrolling);
+
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save user settings (', E.ClassName, '): ', E.Message]);
+  end;
+
+  finally
+    IniFile.Free;
+    InternalMainGUIConfmtime := GetFileTime(IncludeTrailingPathDelimiter(s) + 'gui');
+  end;
+  except end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadAssoc;
+var s: string;
+    IniFile: TMyIniFile;
+    Sections: TStringList;
+    i, j, cnt: integer;
+    Item: TFileAssoc;
+    Action: TAssocAction;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read file association settings']);
+      Exit;
+    end;
+
+  try
+    if not Assigned(AssocList) then AssocList := TList.Create else
+      if AssocList.Count > 0 then for i := 0 to AssocList.Count - 1 do TFileAssoc(AssocList[i]).Free;
+  except end;
+  AssocList.Clear;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'filetypes', True);
+  try
+    Sections := TStringList.Create;
+    IniFile.ReadSections(Sections);
+    if Sections.Count > 0 then
+      for i := 0 to Sections.Count - 1 do
+        if Sections[i] <> 'General' then begin
+          Item := TFileAssoc.Create;
+          with Item do begin
+            if (Sections[i] = ConstFTAMetaDirectory) or (Sections[i] = ConstFTAMetaFile)
+              then Extensions := ''
+              else Extensions := Sections[i];
+            FileTypeName := IniFile.ReadString(Sections[i], 'FileTypeName', '');
+            DefaultAction := IniFile.ReadInteger(Sections[i], 'DefaultAction', 0);
+            cnt := IniFile.ReadInteger(Sections[i], 'NumActions', 0);
+            FileTypeIcon := IniFile.ReadString(Sections[i], 'FileTypeIcon', '');
+            ColorString := IniFile.ReadString(Sections[i], 'ColorString', '');
+            if cnt > 0 then
+              for j := 0 to cnt - 1 do begin
+                Action := TAssocAction.Create;
+                with Action do begin
+                  ActionName := IniFile.ReadString(Sections[i],  Format('Action%dName', [j]), '');
+                  ActionCommand := IniFile.ReadString(Sections[i],  Format('Action%dCommand', [j]), '');
+                  RunInTerminal := IniFile.ReadBool(Sections[i],  Format('Action%dRunInTerminal', [j]), False);
+                  AutodetectGUI := IniFile.ReadBool(Sections[i],  Format('Action%dAutodetectGUI', [j]), True);
+                end;
+                if (Action.ActionName <> '') {and (Action.ActionCommand <> '')} then  ActionList.Add(Action);
+              end;
+          end;
+        {if Length(Trim(Item.Extensions)) > 0 then} AssocList.Add(Item);
+      end;
+    Sections.Free;
+    AddDefaultItems(AssocList);
+    if Assigned(FileIcon) then RecreateIcons(AssocList);
+  finally
+    try IniFile.Free; except end;
+    InternalFAssocConfmtime := GetFileTime(IncludeTrailingPathDelimiter(s) + 'filetypes');
+  end;
+  except end;
+end;
+
+procedure WriteAssoc;
+var i, j: integer;
+    IniFile: TMyIniFile;
+    s, SectionTitle: string;
+begin
+  if InternalQuickExit then Exit;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save file association settings']);
+      Exit;
+    end;
+  s := IncludeTrailingPathDelimiter(s) + 'filetypes';
+  if Libc.access(PChar(s), R_OK) = 0 then Libc.remove(PChar(s));
+
+  IniFile := TMyIniFile.Create(s, False);
+  try try
+    if AssocList.Count > 0 then
+      for i := 0 to AssocList.Count - 1 do
+        with TFileAssoc(AssocList[i]) do begin
+          if (FileTypeName = ConstFTAMetaDirectory) or (FileTypeName = ConstFTAMetaFile)
+            then SectionTitle := FileTypeName
+            else SectionTitle := Extensions;
+          IniFile.EraseSection(SectionTitle);
+          IniFile.WriteString(SectionTitle, 'FileTypeName', FileTypeName);
+          IniFile.WriteString(SectionTitle, 'FileTypeIcon', FileTypeIcon);
+          IniFile.WriteInteger(SectionTitle, 'DefaultAction', DefaultAction);
+          IniFile.WriteInteger(SectionTitle, 'NumActions', ActionList.Count);
+          IniFile.WriteString(SectionTitle, 'ColorString', ColorString);
+          if ActionList.Count > 0 then
+            for j := 0 to ActionList.Count - 1 do begin
+              IniFile.WriteString(SectionTitle, Format('Action%dName', [j]), TAssocAction(ActionList[j]).ActionName);
+              IniFile.WriteString(SectionTitle, Format('Action%dCommand', [j]), TAssocAction(ActionList[j]).ActionCommand);
+              IniFile.WriteBool(SectionTitle, Format('Action%dRunInTerminal', [j]), TAssocAction(ActionList[j]).RunInTerminal);
+              IniFile.WriteBool(SectionTitle, Format('Action%dAutodetectGUI', [j]), TAssocAction(ActionList[j]).AutodetectGUI);
+            end;
+        end;
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save file association settings (', E.ClassName, '): ', E.Message]);
+  end;
+  finally
+    IniFile.Free;
+    InternalFAssocConfmtime := GetFileTime(s);
+  end;
+  except end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadBookmarks;
+var s: string;
+begin
+  try
+    s := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir) + 'bookmarks';
+    Bookmarks.LoadFromFile(s);
+    InternalBookmarksConfmtime := GetFileTime(s);
+  except
+  end;
+end;
+
+procedure WriteBookmarks;
+var s: string;
+begin
+  if InternalQuickExit then Exit;
+  try
+    s := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir) + 'bookmarks';
+    Bookmarks.SaveToFile(s);
+    InternalBookmarksConfmtime := GetFileTime(s);
+  except
+  end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadMounter;
+var s: string;
+    IniFile: TMyIniFile;
+    Sections: TStringList;
+    i: integer;
+    Item: TMounterItem;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read file association settings']);
+      Exit;
+    end;
+
+  try
+    if not Assigned(MounterList) then MounterList := TList.Create else
+      if MounterList.Count > 0 then for i := 0 to MounterList.Count - 1 do TMounterItem(MounterList[i]).Free;
+  except end;
+  MounterList.Clear;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'mounter', True);
+  try
+    Sections := TStringList.Create;
+    IniFile.ReadSections(Sections);
+    if Sections.Count > 0 then
+      for i := 0 to Sections.Count - 1 do
+        if Sections[i] = 'General' then begin
+          ConfMounterUseFSTab := IniFile.ReadBool('General', 'MounterUseFSTab', ConfMounterUseFSTab);
+          ConfMounterPushDown := IniFile.ReadBool('General', 'MounterPushDown', ConfMounterPushDown);
+      end else begin
+        Item := TMounterItem.Create;
+        with Item do begin
+          Device := Sections[i];
+          DisplayText := IniFile.ReadString(Sections[i], 'DisplayText', '');
+          MountPath := IniFile.ReadString(Sections[i], 'MountPath', '');
+          IconPath := IniFile.ReadString(Sections[i], 'IconPath', '');
+          MountCommand := IniFile.ReadString(Sections[i], 'MountCommand', '');
+          UmountCommand := IniFile.ReadString(Sections[i], 'UmountCommand', '');
+          DeviceType := IniFile.ReadInteger(Sections[i], 'DeviceType', 0);
+        end;
+        MounterList.Add(Item);
+      end;
+    Sections.Free;
+  finally
+    try IniFile.Free; except end;
+    InternalMounterConfmtime := GetFileTime(IncludeTrailingPathDelimiter(s) + 'mounter');
+  end;
+  except end;
+end;
+
+procedure WriteMounter;
+var i: integer;
+    IniFile: TMyIniFile;
+    s, SectionTitle: string;
+begin
+  if InternalQuickExit then Exit;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save file association settings']);
+      Exit;
+    end;
+  s := IncludeTrailingPathDelimiter(s) + 'mounter';
+  if Libc.access(PChar(s), R_OK) = 0 then Libc.remove(PChar(s));
+
+  IniFile := TMyIniFile.Create(s, False);
+  try try
+    IniFile.WriteBool('General', 'MounterUseFSTab', ConfMounterUseFSTab);
+    IniFile.WriteBool('General', 'MounterPushDown', ConfMounterPushDown);
+    if MounterList.Count > 0 then
+      for i := 0 to MounterList.Count - 1 do
+        with TMounterItem(MounterList[i]) do begin
+          SectionTitle := Device;
+          IniFile.EraseSection(SectionTitle);
+          IniFile.WriteString(SectionTitle, 'DisplayText', DisplayText);
+          IniFile.WriteString(SectionTitle, 'MountPath', MountPath);
+          IniFile.WriteString(SectionTitle, 'IconPath', IconPath);
+          IniFile.WriteString(SectionTitle, 'MountCommand', MountCommand);
+          IniFile.WriteString(SectionTitle, 'UmountCommand', UmountCommand);
+          IniFile.WriteInteger(SectionTitle, 'DeviceType', DeviceType);
+        end;
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save file association settings (', E.ClassName, '): ', E.Message]);
+  end;
+  finally
+    IniFile.Free;
+    InternalMounterConfmtime := GetFileTime(s);
+  end;
+  except end;
+end;
+
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadTabs(const LeftPanel: boolean; TabList: TStringList; TabSortIDs, TabSortTypes: TList);
+const PanelPrefixes: array[boolean] of string = ('Left', 'Right');
+var s, Section: string;
+    IniFile: TMyIniFile;
+    i, j: integer;
+    NumItems: integer;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read panel tabs']);
+      Exit;
+    end;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'tabs', True);
+  try
+    Section := Format('%s_%spanel', [ConfProfileName, PanelPrefixes[LeftPanel]]);
+    NumItems := IniFile.ReadInteger(Section, 'NumTabs', 0);
+    if LeftPanel then ConfLeftTabBarTabIndex := IniFile.ReadInteger(Section, 'TabIndex', ConfLeftTabBarTabIndex)
+                 else ConfRightTabBarTabIndex := IniFile.ReadInteger(Section, 'TabIndex', ConfRightTabBarTabIndex);
+    if NumItems > 0 then
+      for i := 0 to NumItems - 1 do begin
+        s := IniFile.ReadString(Section, Format('Tab%d', [i]), '');
+        if Length(s) > 0 then TabList.Add(s);
+        j := IniFile.ReadInteger(Section, Format('Tab%d_SortID', [i]), 0);
+        TabSortIDs.Add(Pointer(j));
+        j := IniFile.ReadInteger(Section, Format('Tab%d_SortType', [i]), 0);
+        TabSortTypes.Add(Pointer(j));
+      end;
+  finally
+    try IniFile.Free; except end;
+  end;
+  except end;
+end;
+
+procedure WriteTabs(const LeftPanel: boolean; TabList: TStringList; TabSortIDs, TabSortTypes: TList);
+const PanelPrefixes: array[boolean] of string = ('Left', 'Right');
+var s, Section: string;
+    IniFile: TMyIniFile;
+    i: integer;
+begin
+  if InternalQuickExit then Exit;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save panel tabs']);
+      Exit;
+    end;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'tabs', False);
+  try try
+    Section := Format('%s_%spanel', [ConfProfileName, PanelPrefixes[LeftPanel]]);
+    IniFile.EraseSection(Section);
+    IniFile.WriteInteger(Section, 'NumTabs', TabList.Count);
+    if LeftPanel then IniFile.WriteInteger(Section, 'TabIndex', ConfLeftTabBarTabIndex)
+                 else IniFile.WriteInteger(Section, 'TabIndex', ConfRightTabBarTabIndex);
+    if TabList.Count > 0 then
+      for i := 0 to TabList.Count - 1 do begin
+        IniFile.WriteString(Section, Format('Tab%d', [i]), TabList[i]);
+        IniFile.WriteInteger(Section, Format('Tab%d_SortID', [i]), Integer(TabSortIDs[i]));
+        IniFile.WriteInteger(Section, Format('Tab%d_SortType', [i]), Integer(TabSortTypes[i]));
+      end;
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save panel tabs settings (', E.ClassName, '): ', E.Message]);
+  end;
+  finally
+    IniFile.Free;
+  end;
+  except end;
+end;
+
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ReadConnections;
+var s: string;
+    IniFile: TMyIniFile;
+    Sections: TStringList;
+    i: integer;
+    Item: TConnMgrItem;
+begin
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot read connection manager settings']);
+      Exit;
+    end;
+
+  try
+    if not Assigned(ConnectionMgrList) then ConnectionMgrList := TList.Create else
+      if ConnectionMgrList.Count > 0 then for i := 0 to ConnectionMgrList.Count - 1 do TConnMgrItem(ConnectionMgrList[i]).Free;
+  except end;
+  ConnectionMgrList.Clear;
+
+  IniFile := TMyIniFile.Create(IncludeTrailingPathDelimiter(s) + 'connmgr', True);
+  try
+    Sections := TStringList.Create;
+    IniFile.ReadSections(Sections);
+    if Sections.Count > 0 then
+      for i := 0 to Sections.Count - 1 do
+{        if Sections[i] = 'General' then begin
+          ConfMounterUseFSTab := IniFile.ReadBool('General', 'MounterUseFSTab', ConfMounterUseFSTab);
+          ConfMounterPushDown := IniFile.ReadBool('General', 'MounterPushDown', ConfMounterPushDown);
+      end else} begin
+        Item := TConnMgrItem.Create;
+        with Item do begin
+          ConnectionName := Sections[i];
+          ServiceType := IniFile.ReadString(Sections[i], 'ServiceType', '');
+          Server := IniFile.ReadString(Sections[i], 'Server', '');
+          Username := IniFile.ReadString(Sections[i], 'Username', '');
+          Password := IniFile.ReadString(Sections[i], 'Password', '');
+          TargetDir := IniFile.ReadString(Sections[i], 'TargetDir', '');
+          PluginID := IniFile.ReadString(Sections[i], 'PluginID', '');
+          URI := ConstructURI(False, ServiceType, Server, Username, Password, TargetDir);
+        end;
+        ConnectionMgrList.Add(Item);
+      end;
+    Sections.Free;
+  finally
+    try IniFile.Free; except end;
+    InternalConnMgrConfmtime := GetFileTime(IncludeTrailingPathDelimiter(s) + 'connmgr');
+  end;
+  except end;
+end;
+
+procedure WriteConnections;
+var i: integer;
+    IniFile: TMyIniFile;
+    s, SectionTitle: string;
+begin
+  if InternalQuickExit then Exit;
+  try
+  s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir;
+  if not DirectoryExists(s) then
+    if not ForceDirectories(s) then begin
+      DebugMsg(['*** Error: Cannot save connection manager settings']);
+      Exit;
+    end;
+  s := IncludeTrailingPathDelimiter(s) + 'connmgr';
+  if Libc.access(PChar(s), R_OK) = 0 then Libc.remove(PChar(s));
+
+  IniFile := TMyIniFile.Create(s, False);
+  try try
+//    IniFile.WriteBool('General', 'MounterUseFSTab', ConfMounterUseFSTab);
+    if ConnectionMgrList.Count > 0 then
+      for i := 0 to ConnectionMgrList.Count - 1 do
+        with TConnMgrItem(ConnectionMgrList[i]) do begin
+          SectionTitle := ConnectionName;
+          IniFile.EraseSection(SectionTitle);
+          IniFile.WriteString(SectionTitle, 'ServiceType', ServiceType);
+          IniFile.WriteString(SectionTitle, 'Server', Server);
+          IniFile.WriteString(SectionTitle, 'Username', Username);
+          IniFile.WriteString(SectionTitle, 'Password', Password);
+          IniFile.WriteString(SectionTitle, 'TargetDir', TargetDir);
+          IniFile.WriteString(SectionTitle, 'PluginID', PluginID);
+        end;
+  except
+    on E: Exception do DebugMsg(['*** Error: Cannot save connection manager settings (', E.ClassName, '): ', E.Message]);
+  end;
+  finally
+    IniFile.Free;
+    InternalConnMgrConfmtime := GetFileTime(s);
+  end;
+  except end;
+end;
+
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure SearchForDefaultApps;
+var i: integer;
+    PATH: string;
+begin
+  PATH := GetEnvironmentVariable('PATH');
+  if ConfViewer = ConfAppNA then
+    for i := 1 to Length(ConfViewersApps) do
+      if FileSearch(ConfViewersApps[i], PATH) <> '' then begin
+        ConfViewer := ConfViewersApps[i];
+        Break;
+      end;
+  if ConfEditor = ConfAppNA then
+    for i := 1 to Length(ConfEditorApps) do
+      if FileSearch(ConfEditorApps[i], PATH) <> '' then begin
+        ConfEditor := ConfEditorApps[i];
+        Break;
+      end;
+  if ConfTerminalCommand = ConfAppNA then
+    for i := Length(ConfTerminalAppsWParam) downto 1 do
+      if FileSearch(ConfTerminalAppsWParam[i], PATH) <> '' then begin
+        ConfTerminalCommand := ConfTerminalApps[i];
+        Break;
+      end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+function GetFileTime(FileName: string): Longint;
+var StatBuf : TStatBuf64;
+begin
+  Result := -1;
+  if __lxstat64(_STAT_VER, PChar(FileName), StatBuf) <> 0 then Exit;
+  Result := StatBuf.st_mtime;
+end;
+
+function CheckConfFilesMod(var ChangedMainGUI, ChangedAssoc, ChangedBookmarks, ChangedMounter, ChangedConnections: boolean): boolean;
+var s: string;
+begin
+  s := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir);
+  ChangedMainGUI := (GetFileTime(s + 'gui') > 0) and (GetFileTime(s + 'gui') > InternalMainGUIConfmtime);
+  ChangedAssoc := (GetFileTime(s + 'filetypes') > 0) and (GetFileTime(s + 'filetypes') > InternalFAssocConfmtime);
+  ChangedBookmarks := (GetFileTime(s + 'bookmarks') > 0) and (GetFileTime(s + 'bookmarks') > InternalBookmarksConfmtime);
+  ChangedMounter := (GetFileTime(s + 'mounter') > 0) and (GetFileTime(s + 'mounter') > InternalMounterConfmtime);
+  ChangedConnections := (GetFileTime(s + 'connmgr') > 0) and (GetFileTime(s + 'connmgr') > InternalConnMgrConfmtime);
+  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'); 
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure SetMiscLocaleStrings;
+begin
+  ConfColumnTitlesLong[1] := LANGColumns_TitlesLongName;
+  ConfColumnTitlesLong[2] := LANGColumns_TitlesLongNameExt;
+  ConfColumnTitlesLong[3] := LANGColumns_TitlesLongExt;
+  ConfColumnTitlesLong[4] := LANGColumns_TitlesLongSize;
+  ConfColumnTitlesLong[5] := LANGColumns_TitlesLongDateTime;
+  ConfColumnTitlesLong[6] := LANGColumns_TitlesLongDate;
+  ConfColumnTitlesLong[7] := LANGColumns_TitlesLongTime;
+  ConfColumnTitlesLong[8] := LANGColumns_TitlesLongUser;
+  ConfColumnTitlesLong[9] := LANGColumns_TitlesLongGroup;
+  ConfColumnTitlesLong[10] := LANGColumns_TitlesLongAttr;
+  ConfColumnTitlesShort[1] := LANGColumns_TitlesShortName;
+  ConfColumnTitlesShort[2] := LANGColumns_TitlesShortNameExt;
+  ConfColumnTitlesShort[3] := LANGColumns_TitlesShortExt;
+  ConfColumnTitlesShort[4] := LANGColumns_TitlesShortSize;
+  ConfColumnTitlesShort[5] := LANGColumns_TitlesShortDateTime;
+  ConfColumnTitlesShort[6] := LANGColumns_TitlesShortDate;
+  ConfColumnTitlesShort[7] := LANGColumns_TitlesShortTime;
+  ConfColumnTitlesShort[8] := LANGColumns_TitlesShortUser;
+  ConfColumnTitlesShort[9] := LANGColumns_TitlesShortGroup;
+  ConfColumnTitlesShort[10] := LANGColumns_TitlesShortAttr;
+end;
+
+
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure ParseCMDLine;
+var i: integer;
+    s: string;
+begin
+  if ParamCount > 0 then
+    for i := 1 to ParamCount do begin
+      s := AnsiUpperCase(ParamStr(i));
+      if s = '--DEBUG' then ParamDebug := True else
+      if s = '--DISABLE-GNOME' then ParamDisableGnome := True else
+      if s = '--DELETE-HISTORY' then InternalDeleteHistory := True else
+      if s = '--ENABLE-URI' then ConfUseURI := True else
+      if s = '--DISABLE-PLUGINS' then ParamDisablePlugins := True else
+      if Pos('--PROFILE=', s) = 1 then begin
+        ConfProfileName := 'Profile_' + Trim(Copy(ParamStr(i), 11, Length(s) - 10));
+        if ConfProfileName = '' then ConfProfileName := 'Default';
+      end else
+      if Pos('--LEFT=', s) = 1 then ParamLeftDir := Copy(ParamStr(i), 8, Length(s) - 7) else
+      if Pos('--RIGHT=', s) = 1 then ParamRightDir := Copy(ParamStr(i), 9, Length(s) - 8) else
+      if Pos('--LANG=', s) = 1 then ConfParamForceLang := Copy(ParamStr(i), 8, Length(s) - 7) else
+      if (s = '--HELP') or (s = '-H') then begin
+        WriteLn('Tux Commander v', ConstAboutVersion, ' [built ', ConstAboutBuildDate, ']');
+        WriteLn('Copyright (c) 2008 Tomas Bzatek');
+        WriteLn('Website: tuxcmd.sourceforge.net');
+        WriteLn;
+        WriteLn('Usage: tuxcmd [options...]');
+        WriteLn;
+        WriteLn('Options:');
+        WriteLn('  --debug                    Enable debug messages');
+        WriteLn('  --profile=<profilename>    Use different configuration profile');
+        WriteLn('  --delete-history           Delete command-line, selection and search history');
+        WriteLn('                               (use in case of locale problems)');
+        WriteLn('  --disable-gnome            Don''t load GNOME libraries');
+        WriteLn('  --disable-plugins          Don''t load VFS modules');
+        WriteLn('  --left=<path>              Start left panel at <path>');
+        WriteLn('  --right=<path>             Start right panel at <path>');
+        WriteLn('  --lang=<language>          Force GUI language (the string <language> is');
+        WriteLn('                             standard two-char language id');
+        InternalQuickExit := True;
+        Halt(1);
+      end else WriteLn('tuxcmd: Unknown commandline option: ', ParamStr(i));
+    end;
+end;
+
+
+
+initialization
+  SetDefaults;
+  ParseCMDLine;
+  {$IFDEF __FPC__}
+    DebugMsg(['Tux Commander v', ConstAboutVersion, ' [', ConstAboutBuildDate, ']   FreePascal build ',
+              '(version ', ConstFPCVersionString, ' ', ConstFPCDateString, ', define ', {$IFDEF CPU64}'x86_64'{$ELSE}'i386'{$ENDIF},
+              ', compiled on ', ConstFPCCompilerOSString, '/', ConstFPCCompilerHostProcessorString,
+              ' for ', ConstFPCTargetOSString, '/', ConstFPCTargetProcessorString, ')']);
+  {$ELSE}
+    DebugMsg(['Tux Commander v', ConstAboutVersion, ' [', ConstAboutBuildDate, ']   Kylix build']);
+  {$ENDIF}
+  //  Load GNOME libs
+  if not ParamDisableGnome then LoadGnomeLibs;
+  //  Create basic objects
+  CommandLineHistory := TStringList.Create;
+  CommandLineHistory.CaseSensitive := True;
+  Bookmarks := TStringList.Create;
+  Bookmarks.CaseSensitive := True;
+  //  Initialize the modules
+  DoInitPlugins;
+  //  Initialize locales
+  SetTranslationTexts(ConfParamForceLang);
+  SetMiscLocaleStrings;
+  //  Load the settings
+  ReadMainSettings;
+  ReadMainGUISettings;
+  ReadAssoc;
+  ReadBookmarks;
+  ReadMounter;
+  ReadConnections;
+
+  //  Apply the settings
+  LoadIcons;
+  RecreateIcons(AssocList);
+finalization
+  //  Save the settings
+  WriteBookmarks;
+  WriteConnections;
+  WriteMainSettings;
+  if ConfSavePanelTabs then begin
+    WriteTabs(True, LeftPanelTabs, LeftTabSortIDs, LeftTabSortTypes);
+    WriteTabs(False, RightPanelTabs, RightTabSortIDs, RightTabSortTypes);
+  end;
+  //  Destroy the objects
+  LeftLocalEngine.Free;
+  RightLocalEngine.Free;
+  CommandLineHistory.Free;
+  Bookmarks.Free;
+end.