--- oup/current/FileClasses/_Extensions.pas	2007/07/14 14:18:23	237
+++ oup/current/FileClasses/_Extensions.pas	2007/08/17 21:09:51	244
@@ -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;
@@ -23,6 +25,7 @@ type
       function GetChildCount: Integer; override;
       function GetChild(ID: Integer): TTreeElement; override;
       function GetCaption: String; override;
+      function GetType: String; override;
     private
       FExtensions: array of TExtension;
     public
@@ -65,6 +68,11 @@ begin
   Result := Length(FFiles);
 end;
 
+function TExtension.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtension.InitList;
 var
   files: TStrings;
@@ -95,7 +103,7 @@ end;
 
 function TExtensions.GetCaption: String;
 begin
-  Result := '';
+  Result := 'Extensions';
 end;
 
 function TExtensions.GetChild(ID: Integer): TTreeElement;
@@ -149,6 +157,11 @@ begin
       end;
 end;
 
+function TExtensions.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtensions.AddExt(Ext: String);
 var
   i: Integer;