diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index aa1d2265b8..c67bddb0fc 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -3675,6 +3675,7 @@ writeln('  WriteTargetLists WWW END');
   end;
   {$ENDIF}
   
+  {$IFNDEF WIN32}
   procedure ClearTargetLists(Widget: PGtkWidget);
   // MG: Reading in gtk internas is dirty, but there seems to be no other way
   //     to clear the old target lists
@@ -3700,6 +3701,7 @@ writeln('  WriteTargetLists WWW END');
     writeln('  ClearTargetLists WWW END');
     {$ENDIF}
   end;
+  {$ENDIF}
   
 var c: TClipboardType;
 begin
@@ -3711,7 +3713,9 @@ writeln('[TgtkObject.SetClipboardWidget] ',ClipboardWidget<>nil,' -> ',TargetWid
     {$IFDEF DEBUG_CLIPBOARD}
     WriteTargetLists(ClipboardWidget);
     {$ENDIF}
+    {$IFNDEF WIN32}
     ClearTargetLists(ClipboardWidget);
+    {$ENDIF}
     {$IFDEF DEBUG_CLIPBOARD}
     WriteTargetLists(ClipboardWidget);
     {$ENDIF}
@@ -3729,8 +3733,10 @@ writeln('[TgtkObject.SetClipboardWidget] ',ClipboardWidget<>nil,' -> ',TargetWid
     // add all supported targets for all clipboard types
     for c:=Low(TClipboardType) to High(TClipboardType) do begin
       if (ClipboardTargetEntries[c]<>nil) then begin
+        {$IFNDEF WIN32}
         gtk_selection_add_targets(ClipboardWidget,ClipboardTypeAtoms[c],
                   ClipboardTargetEntries[c],ClipboardTargetEntryCnt[c]);
+        {$ENDIF}
       end;
     end;
   end;
@@ -3744,6 +3750,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.102  2002/01/24 15:40:59  lazarus
+  MG: deactivated clipboard setting target list for win32
+
   Revision 1.101  2002/01/08 16:02:45  lazarus
   Minor changes to TListView.
   Added TImageList to the IDE
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 9487e37a06..28842eb340 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -4337,6 +4337,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.59  2002/01/24 15:40:59  lazarus
+  MG: deactivated clipboard setting target list for win32
+
   Revision 1.58  2002/01/21 14:17:47  lazarus
   MG: added find-block-start and renamed find-block-other-end