paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 23:02:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed setting activecontrol to nil when removing component

Browse Source 
git-svn-id: trunk@1947 -
This commit is contained in:
mattias 2002-08-17 23:40:21 +00:00
parent 875c639d05
commit ed32192473
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkobject.inc
View File

@ -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