--- oup/current/FileClasses/_Extensions.pas	2007/07/17 22:27:16	241
+++ oup/current/FileClasses/_Extensions.pas	2007/08/17 21:09:51	244
@@ -25,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
@@ -102,7 +103,7 @@ end;
 
 function TExtensions.GetCaption: String;
 begin
-  Result := '';
+  Result := 'Extensions';
 end;
 
 function TExtensions.GetChild(ID: Integer): TTreeElement;
@@ -156,6 +157,11 @@ begin
       end;
 end;
 
+function TExtensions.GetType: String;
+begin
+  Result := '';
+end;
+
 procedure TExtensions.AddExt(Ext: String);
 var
   i: Integer;