From f76f41f52efd450a31017158ddd2e576cdfeb89a Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 8 Jun 2008 12:30:50 +0200 Subject: Fix crash when saving settings to read-only homedir --- UConfig.pas | 1 + UCore.pas | 4 ++-- tuxcmd.dpr | 1 - 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/UConfig.pas b/UConfig.pas index b662f58..31105c9 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -384,6 +384,7 @@ procedure ReadMainGUISettings; var s: string; IniFile: TMyIniFile; begin + SearchForDefaultApps; try s := IncludeTrailingPathDelimiter(GetHomePath) + ConfDefaultSettingsDir; if not DirectoryExists(s) then diff --git a/UCore.pas b/UCore.pas index 9464460..8bc2654 100644 --- a/UCore.pas +++ b/UCore.pas @@ -2760,8 +2760,8 @@ initialization RightTabSortIDs := TList.Create; LeftTabSortTypes := TList.Create; RightTabSortTypes := TList.Create; - MounterList := nil; - ConnectionMgrList := nil; + AssocList := TList.Create; + MounterList := TList.Create; ConnectionMgrList := TList.Create; UsedTempPaths := TStringList.Create; SelectHistory := TStringList.Create; diff --git a/tuxcmd.dpr b/tuxcmd.dpr index 62cd3c4..bf4ab38 100644 --- a/tuxcmd.dpr +++ b/tuxcmd.dpr @@ -54,7 +54,6 @@ uses UTestPlugin in 'UTestPlugin.pas', UMounterPrefs in 'UMounterPrefs.pas', UColumns in 'UColumns.pas', - ModuleLoader in 'vfs/ModuleLoader.pas', UVFSCore in 'vfs/UVFSCore.pas', uVFSprototypes in 'vfs/uVFSprototypes.pas', UToolTips in 'UToolTips.pas', -- cgit v1.2.3