diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 4ccfe6da7d..6f01cdbc6b 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -26,7 +26,9 @@ end;
 {------------------------------------------------------------------------------}
 Procedure TWinControl.AdjustClientRect(var Rect: TRect);
 Begin
-//Not used.  It's a virtual procedure that should be overriden.
+
+  // ToDo: ask the interface to adjust the client rectangle
+  
 end;
 
 {------------------------------------------------------------------------------}
@@ -409,6 +411,14 @@ Begin
   Assert(False, Format('Trace:[TWinControl.GetClientOrigin] %s --> (%d, %d)',  [Classname, Result.X, Result.Y]));
 end;
 
+function TWinControl.GetClientRect: TRect;
+begin
+
+  // ToDo: ask the interface for the clientrect
+
+  inherited GetClientRect;
+end;
+
 {------------------------------------------------------------------------------}
 {  TWinControl ReCreateWnd                                                     }
 {------------------------------------------------------------------------------}
@@ -2018,6 +2028,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.57  2002/04/18 08:09:03  lazarus
+  MG: added include comments
+
   Revision 1.56  2002/04/04 12:25:01  lazarus
   MG: changed except statements to more verbosity