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

LCL-Gtk2: guard all gdk_window_get_state(Window) calls with GDK_IS_WINDOW(Window) checks to avoid Gtk2 warnings

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-10-19 01:22:39 +03:00
parent d07ad17699
commit 10996cdfe2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6536,7 +6536,7 @@ begin
if GtkWindow = nil then
Exit;
Result := (PGtkWidget(GtkWindow)^.Window<>nil)
Result := (PGtkWidget(GtkWindow)^.Window<>nil) and GDK_IS_WINDOW(PGtkWidget(GtkWindow)^.Window)
and (gdk_window_get_state(PGtkWidget(GtkWindow)^.Window)
and GDK_WINDOW_STATE_ICONIFIED <> 0);
end;
@ -6600,7 +6600,7 @@ begin
if GtkWindow = nil then
Exit;
Result := gdk_window_get_state(PGtkWidget(GtkWindow)^.Window) and GDK_WINDOW_STATE_MAXIMIZED <> 0;
Result := GDK_IS_WINDOW(PGtkWidget(GtkWindow)^.Window) and (gdk_window_get_state(PGtkWidget(GtkWindow)^.Window) and GDK_WINDOW_STATE_MAXIMIZED <> 0);
end;
{------------------------------------------------------------------------------

2
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -794,7 +794,7 @@ begin
(AForm.PopupParent = nil) then
begin
TempGdkWindow := {%H-}PGdkWindow(Gtk2WidgetSet.GetForegroundWindow);
if (TempGdkWindow <> nil) and (GdkWindowObject_modal_hint(GDK_WINDOW_OBJECT(TempGdkWindow)^) = 0) then
if (TempGdkWindow <> nil) and GDK_IS_WINDOW(TempGdkWindow) and (GdkWindowObject_modal_hint(GDK_WINDOW_OBJECT(TempGdkWindow)^) = 0) then
begin
if ((gdk_window_get_state(TempGdkWindow) and GDK_WINDOW_STATE_ABOVE) = GDK_WINDOW_STATE_ABOVE) or
GTK2WidgetSet.GetAlwaysOnTopX11(TempGdkWindow) then