diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 12:30:50 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-08 12:30:50 +0200 |
| commit | f76f41f52efd450a31017158ddd2e576cdfeb89a (patch) | |
| tree | 036934d740a82969797712b070b477f0b35f2ad6 | |
| parent | 43eab6179b5c8d5ce265fcada4cafbee53054f88 (diff) | |
| download | tuxcmd-f76f41f52efd450a31017158ddd2e576cdfeb89a.tar.xz | |
Fix crash when saving settings to read-only homedir
| -rw-r--r-- | UConfig.pas | 1 | ||||
| -rw-r--r-- | UCore.pas | 4 | ||||
| -rw-r--r-- | 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 @@ -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; @@ -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', |
