From ed3219247364ef3fdfb34f72174dfc43d81a815b Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:40:21 +0000 Subject: [PATCH] fixed setting activecontrol to nil when removing component git-svn-id: trunk@1947 - --- lcl/interfaces/gtk/gtkobject.inc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc index 027596d5f3..57e7631ddd 100644 --- a/lcl/interfaces/gtk/gtkobject.inc +++ b/lcl/interfaces/gtk/gtkobject.inc @@ -1442,7 +1442,6 @@ begin LM_BTNDEFAULT_CHANGED : Begin if (TButton(Sender).Default) then begin - writeln('AAA1 ',TButton(Sender).Name,':',TButton(Sender).ClassName); TButton(Sender).SetFocus; //and (GTK_WIDGET_CAN_DEFAULT(pgtkwidget(handle))) then // gtk_widget_grab_default(pgtkwidget(handle)) @@ -6734,6 +6733,9 @@ end; { ============================================================================= $Log$ + Revision 1.305 2002/12/25 14:21:28 mattias + fixed setting activecontrol to nil when removing component + Revision 1.304 2002/12/25 11:53:47 mattias Button.Default now sets focus