Index: oup/current/FileClasses/TXAN.pas
===================================================================
--- oup/current/FileClasses/TXAN.pas	(revision 213)
+++ oup/current/FileClasses/TXAN.pas	(revision 214)
@@ -10,6 +10,7 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -22,10 +23,7 @@
 var
   tempi: Integer;
-  temps: String;
-  templist: TStringList;
 begin
   inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
-  templist := TStringList.Create;
   with FDataFields do
   begin
@@ -49,4 +47,5 @@
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
+    tempi := 2;
     with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
     begin
@@ -54,5 +53,4 @@
     end;
   end;
-  templist.Free;
 end;
 
Index: oup/current/FileClasses/TXMP.pas
===================================================================
--- oup/current/FileClasses/TXMP.pas	(revision 213)
+++ oup/current/FileClasses/TXMP.pas	(revision 214)
@@ -10,6 +10,7 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
Index: oup/current/FileClasses/_EmptyFile.pas
===================================================================
--- oup/current/FileClasses/_EmptyFile.pas	(revision 213)
+++ oup/current/FileClasses/_EmptyFile.pas	(revision 214)
@@ -10,6 +10,7 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -21,4 +22,5 @@
 procedure TFile_Empty.InitDataFields;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
 end;
Index: oup/current/FileClasses/_FileTypes.pas
===================================================================
--- oup/current/FileClasses/_FileTypes.pas	(revision 213)
+++ oup/current/FileClasses/_FileTypes.pas	(revision 214)
@@ -4,5 +4,5 @@
 
 uses
-  TypeDefs, _DataTypes, Classes;
+  TypeDefs, _DataTypes, Classes, Forms;
 
 
@@ -23,4 +23,7 @@
       FDataFields: TBlock;
       FRawParts: TRawDataList;
+
+      FEditor: TFrame;
+      FOpened: Boolean;
 
       procedure InitDatLinks; virtual; abstract;
@@ -39,4 +42,5 @@
 
       procedure InitDataFields; virtual;
+      procedure InitEditor; virtual;
 
       property FileStream: TMemoryStream read FFileStream;
@@ -50,4 +54,7 @@
       property Changed: Boolean read FChanged write FChanged;
 
+      property Editor: TFrame read FEditor;
+      property Opened: Boolean read FOpened write FOpened;
+
       property ChildCount: Integer read GetChildCount;
       property LinkByOffset[Offset: Integer]: TDatLink read GetDatLinkByOffset;
@@ -78,5 +85,4 @@
 constructor TFile.Create(ConnectionID, FileID: Integer);
 var
-  i: Integer;
   fileinfo: TFileInfo;
 begin
@@ -100,4 +106,5 @@
   InitRawList();
   FDataFields := nil;
+  FEditor := nil;
 
   if not (Self is TFile_Empty) then
@@ -164,6 +171,4 @@
 
 function TFile.GetFieldByOffset(Offset: Integer): TDataField;
-var
-  i: Integer;
 begin
   Result := FDataFields.FieldByOffset[Offset];
@@ -229,4 +234,9 @@
 end;
 
+procedure TFile.InitEditor;
+begin
+  Exit;
+end;
+
 function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
 begin
Index: oup/current/FileClasses/_MetaManager.pas
===================================================================
--- oup/current/FileClasses/_MetaManager.pas	(revision 213)
+++ oup/current/FileClasses/_MetaManager.pas	(revision 214)
@@ -2,5 +2,5 @@
 interface
 
-uses _FileTypes, TXAN, TXMP, _EmptyFile;
+uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile;
 
 type
@@ -12,5 +12,6 @@
 
 const
-  FileDescs: array[0..1] of TFileDesc = (
+  FileDescs: array[0..2] of TFileDesc = (
+    (ext: 'SUBT'; ftype: TFile_SUBT),
     (ext: 'TXAN'; ftype: TFile_TXAN),
     (ext: 'TXMP'; ftype: TFile_TXMP)
@@ -34,4 +35,7 @@
       property FileById[Id: Integer]: TFile read GetFileById;
   end;
+
+var
+  Meta: TMetaManager;
 
 implementation