From ce7000ecf807fd67811a3c0e63d47bf6ba7adfaf Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 1 Apr 2016 09:12:15 +0000
Subject: [PATCH] Designer: Improve the fix for #24386. Prevent Copy/Paste of
 PageControl only with GTK2 bindings.

git-svn-id: trunk@52096 -
---
 designer/controlselection.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/designer/controlselection.pp b/designer/controlselection.pp
index fb59985083..0b0b32991d 100644
--- a/designer/controlselection.pp
+++ b/designer/controlselection.pp
@@ -2907,7 +2907,11 @@ var
 begin
   for i:=0 to FControls.Count-1 do
     if (Items[i].Persistent is TCustomTabControl)
-    or (Items[i].Persistent is TCustomPage) then
+    {$IFDEF LCLGTK2}   // Copying PageControl (TCustomPage) fails with GTK2
+    // in Destroy with LCLRefCount>0 due to some messages used. Issue #r51950.
+    or (Items[i].Persistent is TCustomPage)
+    {$ENDIF}
+    then
       Exit(False);
   Result:=True;
 end;