diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 3b8ebe00cf..e71dfbf76a 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -29,6 +29,12 @@ begin
   Result := false;
 end;
 
+function TInterfaceBase.AngleChord(DC: HDC;
+  x,y,width,height,angle1,angle2 : Integer): Boolean;
+begin
+  Result:=false;
+end;
+
 function TInterfaceBase.BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; 
 begin
   Result := False;
@@ -621,6 +627,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.37  2002/08/08 18:05:46  lazarus
+  MG: added graphics extensions from Andrew Johnson
+
   Revision 1.36  2002/08/08 17:26:37  lazarus
   MG: added property TMenuItems.RightJustify