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

reduced focus handling and improved focus setting

Browse Source 
git-svn-id: trunk@2091 -
This commit is contained in:
mattias 2002-08-17 23:40:55 +00:00
parent f2b2481e53
commit 831bce3844
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3033,7 +3033,9 @@ begin
'focus-out-event', @gtkKillFocusCBAfter);
end else begin
ConnectSenderSignal(gCore, 'focus-in-event', @gtkFocusCB);
ConnectSenderSignal(gCore, 'focus-out-event', @gtkKillFocusCBAfter);
ConnectSenderSignalAfter(gCore, 'focus-in-event', @gtkFocusCBAfter);
ConnectSenderSignal(gCore, 'focus-out-event', @gtkKillFocusCB);
ConnectSenderSignalAfter(gCore, 'focus-out-event', @gtkKillFocusCBAfter);
end;
end;
@ -7061,6 +7063,9 @@ end;
{ =============================================================================
$Log$
Revision 1.339 2003/03/25 10:45:41 mattias
reduced focus handling and improved focus setting
Revision 1.338 2003/03/18 13:45:39 mattias
set transient forms with Screen object order