From e717242eba470986cbbebc125d1eca6eed84e16f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:06 +0000
Subject: [PATCH] added IsWindowVisible

git-svn-id: trunk@2189 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 2dcda10d0a..4f1044e380 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -4969,6 +4969,15 @@ begin
   {$EndIf}
 end;
 
+{------------------------------------------------------------------------------
+  function TgtkObject.IsWindowVisible(handle: HWND): boolean;
+
+ ------------------------------------------------------------------------------}
+function TgtkObject.IsWindowVisible(handle: HWND): boolean;
+begin
+  Result:=(handle<>0) and GTK_WIDGET_VISIBLE(PGtkWidget(handle));
+end;
+
 {------------------------------------------------------------------------------
   Function: LineTo
   Params:  none
@@ -7921,6 +7930,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.218  2003/03/17 08:51:09  mattias
+  added IsWindowVisible
+
   Revision 1.217  2003/03/16 09:41:06  mattias
   fixed checking menuitems