From 84c890b989d44c40fc7c9db141fc2fde972e760a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:10 +0000
Subject: [PATCH] fixed TComboBox.OnChange

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

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index dca2a2c2aa..9067479a3f 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -155,7 +155,7 @@ function LockOnChange(GtkObject: PGtkObject; LockOffset: integer): integer;
 begin
   Result:=Integer(gtk_object_get_data(GtkObject,'OnChangeLock'));
   if LockOffset<>0 then begin
-    inc(Result);
+    inc(Result,LockOffset);
     gtk_object_set_data(GtkObject,'OnChangeLock',Pointer(Result));
   end;
 end;
@@ -3985,6 +3985,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.160  2003/03/02 23:08:31  mattias
+  fixed TComboBox.OnChange
+
   Revision 1.159  2003/02/18 22:56:23  mattias
   fixed key grabbing