X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_soundfile.pas;h=4ba5cd6ac0b40eeaaa6cd2948655a03df2373b89;hb=96433b6928f0d3de3a7bb69b97008b17bff22b58;hp=919715c5dea3dc3da6a7a9242748b10e5af7f87a;hpb=d194bf7d765aa5eb39a57892f6e5c4e66eeae5e5;p=d2df-sdl.git

diff --git a/src/engine/e_soundfile.pas b/src/engine/e_soundfile.pas
index 919715c..4ba5cd6 100644
--- a/src/engine/e_soundfile.pas
+++ b/src/engine/e_soundfile.pas
@@ -2,8 +2,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -34,6 +33,7 @@ type
   protected
     FFormat: TSoundFormat;
     FStreaming: Boolean;
+    FLooping: Boolean;
 
   public
     function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; virtual; abstract; overload;
@@ -48,9 +48,11 @@ type
 
     property Format: TSoundFormat read FFormat;
     property Streaming: Boolean read FStreaming;
+    property Looping: Boolean read FLooping write FLooping;
   end;
 
   TSoundLoaderFactory = class
+  public
     function MatchHeader(Data: Pointer; Len: LongWord): Boolean; virtual; abstract;
     function MatchExtension(FName: string): Boolean; virtual; abstract;
     function GetLoader(): TSoundLoader; virtual; abstract;