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

gtk2 intf: isiconic: check if window is not nil

Browse Source 
git-svn-id: trunk@24063 -
This commit is contained in:
mattias 2010-03-17 14:05:08 +00:00
parent b3eed82c63
commit cbbac5d4f9
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/gtkwinapi.inc
View File

@ -6911,7 +6911,9 @@ begin
{$ifdef gtk1} {$ifdef gtk1}
Result := GDK_WINDOW_GET_MINIMIZED(PGdkWindowPrivate(PgtkWidget(GtkWindow)^.Window)); Result := GDK_WINDOW_GET_MINIMIZED(PGdkWindowPrivate(PgtkWidget(GtkWindow)^.Window));
{$else} {$else}
Result := gdk_window_get_state(PGtkWidget(GtkWindow)^.Window) and GDK_WINDOW_STATE_ICONIFIED <> 0; Result := (PGtkWidget(GtkWindow)^.Window<>nil)
and (gdk_window_get_state(PGtkWidget(GtkWindow)^.Window)
and GDK_WINDOW_STATE_ICONIFIED <> 0);
{$endif} {$endif}
end; end;