diff options
| -rw-r--r-- | Game/Code/Classes/UPlatformMacOSX.pas | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas index 4e0c9061..ff369049 100644 --- a/Game/Code/Classes/UPlatformMacOSX.pas +++ b/Game/Code/Classes/UPlatformMacOSX.pas @@ -16,7 +16,9 @@ type private public Function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; override; - function GetGamePath: WideString; override; + function GetLogPath : WideString; override; + function GetGameSharedPath : WideString; override; + function GetGameUserPath : WideString; override; end; implementation @@ -26,7 +28,7 @@ uses SysUtils, baseunix; // Mac applications are packaged in directories. // We have to cut the last two directories // to get the application directory. -Function TPlatformMacOSX.GetGamePath : WideString; +Function GetBundlePath : WideString; var x, i : integer; @@ -41,6 +43,21 @@ begin end; end; +function TPlatformMacOSX.GetLogPath : WideString; +begin + Result := GetBundlePath; +end; + +function TPlatformMacOSX.GetGameSharedPath : WideString; +begin + Result := GetBundlePath; +end; + +function TPlatformMacOSX.GetGameUserPath : WideString; +begin + Result := GetBundlePath; +end; + Function TPlatformMacOSX.DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; var i : Integer; |