From 040131af50176faa5b0c4acb9343a82ee08e3d04 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 1 Sep 2009 14:01:10 +0000
Subject: [PATCH] gtk: hide some warnings when HideKeyTableWarnings is defined

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

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 30ffce8167..247d46d6de 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -3002,7 +3002,9 @@ procedure InitKeyboardTables;
       $E4: AFreeVK := $E6;
       $E6: AFreeVK := $E9;
       $F5: begin
+        {$ifndef HideKeyTableWarnings}
         DebugLn('[WARNING] Out of OEM specific VK codes, changing to unassigned');
+        {$endif}
         AFreeVK := $88;
       end;
       $8F: AFreeVK := $97;
@@ -3010,7 +3012,9 @@ procedure InitKeyboardTables;
       $DA: AFreeVK := $E5;
       $E5: AFreeVK := $E8;
       $E8: begin
+        {$ifndef HideKeyTableWarnings}
         DebugLn('[WARNING] Out of unassigned VK codes, assigning $FF');
+        {$endif}
         AFreeVK := $FF;
       end;
       $FF: AFreeVK := $FF; // stay there