summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTomas Bzatek <tbzatek@users.sourceforge.net>2008-06-08 12:30:50 +0200
committerTomas Bzatek <tbzatek@users.sourceforge.net>2008-06-08 12:30:50 +0200
commitf76f41f52efd450a31017158ddd2e576cdfeb89a (patch)
tree036934d740a82969797712b070b477f0b35f2ad6
parent43eab6179b5c8d5ce265fcada4cafbee53054f88 (diff)
downloadtuxcmd-f76f41f52efd450a31017158ddd2e576cdfeb89a.tar.xz
Fix crash when saving settings to read-only homedir
-rw-r--r--UConfig.pas1
-rw-r--r--UCore.pas4
-rw-r--r--tuxcmd.dpr1
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',