paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix assertions and infinite loop in gtk2 library.

Browse Source 
git-svn-id: trunk@62889 -
This commit is contained in:
zeljko 2020-04-05 10:55:15 +00:00
parent 114f2092b1
commit 40f8a7d0af
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -4359,7 +4359,10 @@ begin
ARect.Top:=0;
end;
CurGDKWindow:=ClientWindow;
while (CurGDKWindow<>MainWindow) do begin
while (CurGDKWindow<>MainWindow) do
begin
if not GDK_IS_WINDOW(CurGDKWindow) then
break;
gdk_window_get_position(CurGDKWindow,@ClientOrigin.x,@ClientOrigin.y);
inc(ARect.Left,ClientOrigin.x);
inc(ARect.Top,ClientOrigin.y);