--- oup/current/FileClasses/TXMP.pas	2007/07/13 23:15:47	236
+++ oup/current/FileClasses/TXMP.pas	2007/11/26 11:02:28	248
@@ -6,7 +6,7 @@ uses
   _FileTypes;
 
 type
-  TFile_TXMP = class(TFile)
+  TFile_TXMP = class(TResource)
     public
       procedure InitDataFields; override;
       procedure InitEditor; override;
@@ -26,7 +26,7 @@ begin
   FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 
     AddField(TString, 'FileName', '', [128]);
@@ -52,10 +52,10 @@ begin
     AddField(TInt, 'Width', '', [2]);
     AddField(TInt, 'Height', '', [2]);
     AddField(TInt, 'StoreType', '', [4]);
-    AddField(TLinkByID, 'TXAN', '', ['*']);
+    AddField(TLinkByID, 'TXAN', '', ['TXAN']);
     AddField(TLinkByID, 'TXMP', '', ['TXMP']);
-    AddField(TRawLink, 'RawLink', '', []);
-    AddField(TRawLink, 'SepLink', '', []);
+    AddField(TRawLink, 'RawLink', '', ['TXMP']);
+    AddField(TRawLink, 'SepLink', '', ['TXMP']);
     AddField(TUnused, 'Unused', '', [$1C]);
   end;
   FDataFields.Update(0, -1);