From 67dbe4986f1bf7533df8918b929e41df72d9a5f8 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sat, 5 Jun 2021 22:33:55 +0000
Subject: [PATCH] Gtk2: Add option to disable "KeyEventWasHandledByLCL" =>
 allow checking if new Gt2-IM code can deal with this. Define WITH_GTK2_IM for
 IM / Define WITHOUT_GTK_DOUBLEKEYPRESS_CHECK to disable current check

git-svn-id: trunk@65176 -
---
 lcl/interfaces/gtk2/gtk2proc.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 3654e720a4..3b5019065a 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -2238,9 +2238,11 @@ begin
     ' Widget=',GetWidgetClassName(AWidget),
     ' Before=',ABeforeEvent,' Down=',AHandleDown,' HandledByLCL=',HandledByLCL<>nil]);
   {$ENDIF}
-  
+
   // handle every key event only once
+  {$IFnDEF WITHOUT_GTK_DOUBLEKEYPRESS_CHECK}
   if EventHandledByLCL<>nil then exit;
+  {$ENDIF}
 
   while (not GtkWidgetIsA(AWidget, gtk_window_get_type)) and (AWidget^.parent <> nil) do
     AWidget := AWidget^.parent;