From 97adf096bec90d30e99f48f0de04a42fc15af280 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Mon, 10 Dec 2001 11:13:15 +0000
Subject: [PATCH] MG: added GDK_dead_circumflex key

git-svn-id: trunk@497 -
---
 components/synedit/synedit.pp  |  6 +++---
 lcl/interfaces/gtk/gtkproc.inc | 11 ++++++++++-
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 14e936d261..b2e00ee119 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -1575,15 +1575,15 @@ var
   C: char;
   Cmd: TSynEditorCommand;
 begin
-//writeln('[TCustomSynEdit.KeyDown] ',Key
-//  ,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
+writeln('[TCustomSynEdit.KeyDown] ',Key
+  ,' Shift=',ssShift in Shift,' Ctrl=',ssCtrl in Shift,' Alt=',ssAlt in Shift);
   inherited;
   Data := nil;
   C := #0;
   try
     Cmd := TranslateKeyCode(Key, Shift, Data);
     if Cmd <> ecNone then begin
-//writeln('[TCustomSynEdit.KeyDown] key translated ',cmd);
+writeln('[TCustomSynEdit.KeyDown] key translated ',cmd);
       Key := 0; // eat it.
       Include(fStateFlags, sfIgnoreNextChar);
       CommandProcessor(Cmd, C, Data);
diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 4096d56e0a..bc4cbeb650 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -209,9 +209,10 @@ begin
   Extended := False;
   Toggle := False;
   
+writeln('[GetGTKKeyInfo] Event^.KeyVal=',Event^.KeyVal);
   case Event^.KeyVal of
     // Normal ASCII chars
-    32..255 : 
+    32..255:
       begin
         { Assign key code}
         KeyCode := Event^.KeyVal;
@@ -232,6 +233,11 @@ begin
         then Dec(KeyCode, Ord('@'));
       end;
       
+    GDK_dead_circumflex:
+      begin
+        KeyCode := Ord('^');
+      end;
+      
     GDK_KP_Space:
       begin
         KeyCode := VK_SPACE;
@@ -890,6 +896,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.27  2001/12/10 11:13:15  lazarus
+  MG: added GDK_dead_circumflex key
+
   Revision 1.26  2001/11/16 20:08:41  lazarus
   Object inspector has hints now.
   Shane