From 69760999c871af479f1ce228f8dbf80569cd8956 Mon Sep 17 00:00:00 2001 From: tobigun Date: Sun, 8 Jun 2008 12:48:29 +0000 Subject: 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 --- Game/Code/Classes/UPlatformLinux.pas | 27 ++++++++++++++------------- 1 file 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; -- cgit v1.2.3