From 5b11d49d7ea6c56da13b6cc09d0dadc8269bedec Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 28 Apr 2008 07:11:35 +0000
Subject: [PATCH] clean up

git-svn-id: trunk@14996 -
---
 ide/sourceeditor.pp                |  2 --
 lcl/interfaces/gtk2/gtk2wsmenus.pp | 10 +++++-----
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 649b3b78d9..f12f606b14 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -4544,8 +4544,6 @@ begin
 end;
 
 procedure TSourceNotebook.EndIncrementalFind;
-var
-  TempEditor: TSourceEditor;
 begin
   if not (snIncrementalFind in States) then exit;
 
diff --git a/lcl/interfaces/gtk2/gtk2wsmenus.pp b/lcl/interfaces/gtk2/gtk2wsmenus.pp
index 1e1c6a47af..77c35c1b92 100644
--- a/lcl/interfaces/gtk2/gtk2wsmenus.pp
+++ b/lcl/interfaces/gtk2/gtk2wsmenus.pp
@@ -227,11 +227,11 @@ end;
 
 class procedure TGtk2WSMenuItem.SetShortCut(const AMenuItem: TMenuItem;
   const OldShortCut, NewShortCut: TShortCut);
-var
-  MenuWidget: PGtkMenuItem;
-  accel_path: String;
-  CurKey: Word;
-  CurShift: TShiftState;
+//var
+  //MenuWidget: PGtkMenuItem;
+  //accel_path: String;
+  //CurKey: Word;
+  //CurShift: TShiftState;
 begin
   if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then  Exit;