minor changes and fixes for USDX on linux.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@526 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 26 insertions, 24 deletions

diff --git a/Game/Code/Classes/UMedia_dummy.pas b/Game/Code/Classes/UMedia_dummy.pas
index 0752ab64..bf3ad727 100644
--- a/Game/Code/Classes/UMedia_dummy.pas
+++ b/Game/Code/Classes/UMedia_dummy.pas
@@ -37,9 +37,9 @@ type
       procedure init();
 
       function  Open( aFileName : string): boolean; // true if succeed
-      procedure Close;

-

-      procedure Play;

+      procedure Close;
+
+      procedure Play;
       procedure Pause;
       procedure Stop;
 
@@ -90,7 +90,7 @@ type
 
 function  Tmedia_dummy.GetName: String;
 begin
-  result := 'dummy';

+  result := 'dummy';
 end;
 
 
@@ -104,23 +104,23 @@ end;
 
 constructor Tmedia_dummy.create();
 begin
-end;

-

-procedure Tmedia_dummy.init();

+end;
+
+procedure Tmedia_dummy.init();
+begin
+end;
+
+
+function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed
 begin
-end;

-

-

-function Tmedia_dummy.Open( aFileName : string): boolean; // true if succeed

-begin

   result := false;
-end;

-

-procedure Tmedia_dummy.Close;

+end;
+
+procedure Tmedia_dummy.Close;
 begin
 end;
 
-procedure Tmedia_dummy.Play;

+procedure Tmedia_dummy.Play;
 begin
 end;
 
@@ -138,7 +138,7 @@ end;
 
 function  Tmedia_dummy.getPosition: real;
 begin
-  result := 0;

+  result := 0;
 end;
 
 // IAudioInput
@@ -169,8 +169,8 @@ end;
 // IAudioPlayback
 procedure Tmedia_dummy.InitializePlayback;
 begin
-end;

-

+end;
+
 procedure Tmedia_dummy.SetVolume(Volume: integer);
 begin
 end;
@@ -189,11 +189,13 @@ end;
 
 function Tmedia_dummy.Finished: boolean;
 begin
-end;

-

+  result := false;
+end;
+
 function Tmedia_dummy.Length: real;
 begin
-end;

+  Result := 60;
+end;
 
 procedure Tmedia_dummy.PlayStart;
 begin
@@ -267,8 +269,8 @@ initialization
   writeln( 'UMedia_dummy - Register dummy Video_Playback' );
   AudioManager.add( IAudioInput( singleton_dummy ) );
   
-finalization

-  AudioManager.Remove( IVideoPlayback( singleton_dummy ) );

+finalization
+  AudioManager.Remove( IVideoPlayback( singleton_dummy ) );
   AudioManager.Remove( IAudioPlayback( singleton_dummy ) );
   AudioManager.Remove( IAudioInput( singleton_dummy ) );