--- oup/current/FileClasses/_Extensions.pas	2007/07/14 14:18:23	237
+++ oup/current/FileClasses/_Extensions.pas	2007/07/17 22:27:16	241
@@ -7,9 +7,11 @@ uses
 
 type
   TExtension = class(TTreeElement)
+    protected
       function GetChildCount: Integer; override;
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExt: String;
       FFiles: array of Integer;
@@ -65,6 +67,11 @@ begin
   Result := Length(FFiles);
 end;
 
+function TExtension.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtension.InitList;
 var
   files: TStrings;