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

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;