From 947e4d8c21d5942a95b8c44d14a67ffac64aa953 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:40:57 +0000 Subject: [PATCH] fixed sending TButtonControl.OnClick on every change git-svn-id: trunk@2106 - --- lcl/interfaces/gtk/gtkobject.inc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc index f2ae261167..51e13b4fa6 100644 --- a/lcl/interfaces/gtk/gtkobject.inc +++ b/lcl/interfaces/gtk/gtkobject.inc @@ -5704,8 +5704,10 @@ begin csCheckbox, csToggleBox: begin + LockOnChange(PGtkObject(Handle),1); gtk_toggle_button_set_active(PGtkToggleButton(handle), - (TCheckBoxState(data^) = cbChecked)) + (TCheckBoxState(data^) = cbChecked)); + LockOnChange(PGtkObject(Handle),-1); end; csCalendar : @@ -7067,6 +7069,9 @@ end; { ============================================================================= $Log$ + Revision 1.341 2003/03/25 16:29:53 mattias + fixed sending TButtonControl.OnClick on every change + Revision 1.340 2003/03/25 13:00:39 mattias implemented TMemo.SelLength, improved OI hints