aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-06-08 12:48:29 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-06-08 12:48:29 +0000
commit69760999c871af479f1ce228f8dbf80569cd8956 (patch)
tree051af5426d2c7f5ea66eba4730a846d7ab15f17c
parenta60b501dbf86b9ee0fe29882958861d692468342 (diff)
downloadusdx-69760999c871af479f1ce228f8dbf80569cd8956.tar.gz
usdx-69760999c871af479f1ce228f8dbf80569cd8956.tar.xz
usdx-69760999c871af479f1ce228f8dbf80569cd8956.zip
Added missing private section. Without defining it, methods are public by default.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1142 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--Game/Code/Classes/UPlatformLinux.pas27
1 files changed, 14 insertions, 13 deletions
diff --git a/Game/Code/Classes/UPlatformLinux.pas b/Game/Code/Classes/UPlatformLinux.pas
index b323c608..985f9db1 100644
--- a/Game/Code/Classes/UPlatformLinux.pas
+++ b/Game/Code/Classes/UPlatformLinux.pas
@@ -13,17 +13,18 @@ uses Classes, UPlatform;
type
TPlatformLinux = class(TInterfacedObject, IPlatform)
- function get_homedir(): string;
- public
- function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
- function TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
- function FindSongFile(Dir, Mask: widestring): widestring;
-
- procedure Halt;
-
- function GetLogPath : WideString;
- function GetGameSharedPath : WideString;
- function GetGameUserPath : WideString;
+ private
+ function GetHomedir(): string;
+ public
+ function DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray;
+ function TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
+ function FindSongFile(Dir, Mask: widestring): widestring;
+
+ procedure Halt;
+
+ function GetLogPath : WideString;
+ function GetGameSharedPath : WideString;
+ function GetGameUserPath : WideString;
end;
implementation
@@ -37,7 +38,7 @@ implementation
uses
libc,
- uCommandLine,
+ UCommandLine,
BaseUnix,
SysUtils,
ULog,
@@ -132,7 +133,7 @@ begin
end;
end;
-function TPlatformLinux.get_homedir(): string;
+function TPlatformLinux.GetHomedir(): string;
var
pPasswdEntry : Ppasswd;
lUserName : String;