From a8d5b99b2b8d4b3a2ee29acfc9e5edd270a5315f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 14 Jul 2010 15:14:00 +0000
Subject: [PATCH] gtk2 intf: clean up

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

diff --git a/lcl/interfaces/gtk2/gtk2callback.inc b/lcl/interfaces/gtk2/gtk2callback.inc
index 18729b60cf..5b32226cf3 100644
--- a/lcl/interfaces/gtk2/gtk2callback.inc
+++ b/lcl/interfaces/gtk2/gtk2callback.inc
@@ -1419,18 +1419,20 @@ function gtkMouseBtnPress(widget: PGtkWidget; event: pgdkEventButton; data: gPoi
 
 var
   DesignOnlySignal: boolean;
-  AWinControl: TWinControl;
   Msg: TLMContextMenu;
   x, y: gint;
   W: PGtkWidget;
   Info: PWidgetInfo;
   Old: TObject;
+  {$IFDEF VerboseMouseBugfix}
+  AWinControl: TWinControl;
+  {$ENDIF}
 begin
   Result := CallBackDefaultReturn;
   MousePositionValid := False;
-  AWinControl := TWinControl(Data);
 
   {$IFDEF VerboseMouseBugfix}
+  AWinControl := TWinControl(Data);
   DebugLn('');
   DesignOnlySignal:=GetDesignOnlySignalFlag(Widget,dstMousePress);
   DebugLn('[gtkMouseBtnPress] ',