From de4fb4771baface8985b1695facd29a2004047fa Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Thu, 8 Mar 2007 23:57:13 +0000
Subject: [PATCH] * Fixed setting keyinfo flags

git-svn-id: trunk@10724 -
---
 lcl/interfaces/gtk/gtkproc.inc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index ef4e9def1c..075c4acf5d 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -3183,7 +3183,7 @@ begin
       MKeyCodeInfo[KeyCode].Flags := $FF
     end
     else begin
-      MKeyCodeInfo[KeyCode].Flags := KEYFLAGS[m] or EXTFLAG[Extended] or MULTIFLAG[HasMultiVK];
+      MKeyCodeInfo[KeyCode].Flags := EXTFLAG[Extended] or MULTIFLAG[HasMultiVK];
       MVKeyInfo[VKey].KeyCode[SecondKey] := KeyCode;
     end;
     MKeyCodeInfo[KeyCode].VKey1 := VKey;
@@ -3206,7 +3206,9 @@ begin
         end;
       end;
       if VKey = VK_UNDEFINED then Continue;
-      
+
+      MKeyCodeInfo[KeyCode].Flags := MKeyCodeInfo[KeyCode].Flags or KEYFLAGS[m];
+
       FillByte(KeySymChars, SizeOf(KeySymChars), 0);
     {$ifdef gtk1}
       // Retrieve the chars for this KeySym