diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 2c72333526..0f14dd6e08 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -96,8 +96,7 @@ end;
 
 Function TInterfaceBase.EmptyClipBoard : Boolean;
 begin
-  // Your default here
-  // Result := 
+Result := False;
 end;
 
 function TInterfaceBase.EnableMenuItem(hMenu: HMENU; uIDEnableItem: Integer; bEnable: Boolean): Boolean;
@@ -112,8 +111,7 @@ end;
 
 function TInterfaceBase.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
 begin
-  // Your default here
-  // Result := 
+Result := False;
 end;
 
 function TInterfaceBase.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
@@ -168,8 +166,7 @@ end;
 
 Function TInterfaceBase.GetParent(Handle : HWND): HWND;
 begin
-  // Your default here
-  // Result := 
+Result := 0;
 end;
 
 Function TInterfaceBase.GetProp(Handle : hwnd; Str : PChar): Pointer;
@@ -405,6 +402,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.7  2000/12/06 14:54:38  lazarus
+  Set some defaults in interfacebase.inc
+  Shane
+
   Revision 1.6  2000/09/10 19:58:47  lazarus
   MWE:
     * Updated makefiles for FPC release 1.0  binary units
diff --git a/lcl/interfaces/win32/interfaces.pp b/lcl/interfaces/win32/interfaces.pp
index cf54713410..1df9a1bce2 100644
--- a/lcl/interfaces/win32/interfaces.pp
+++ b/lcl/interfaces/win32/interfaces.pp
@@ -24,10 +24,10 @@ unit interfaces;
 {$mode objfpc} 
 
 interface
-{ $DEFINE WIN}
+{$DEFINE WIN}
 { $DEFINE QT}
 
-{$DEFINE GTK}
+{ $DEFINE GTK}
 
 {$ifdef WIN}