From b42094816b220d982039acfeebe62be7c02d02fe Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:45:30 +0000
Subject: [PATCH] MG: fixed TForm ShowHide repositioning

git-svn-id: trunk@703 -
---
 lcl/interfaces/gtk/gtkobject.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index b763bbe260..1263689ffe 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -3216,7 +3216,8 @@ begin
   //  writeln('[TgtkObject.ShowHide] START ',Sender.ClassName,' Visible=',TControl(Sender).Visible,' Window=',FormWidget^.Window<>nil);
   if TControl(Sender).Visible then begin
     {$IFDEF ClientRectBugFix}
-    if (Sender is TCustomForm) then begin
+    if (Sender is TCustomForm) and (not gtk_widget_visible(FormWidget)) then
+    begin
       gtk_window_set_default_size(PgtkWindow(FormWidget),
                                TControl(Sender).Width,TControl(Sender).Height);
       gtk_widget_set_uposition(PgtkWidget(FormWidget),
@@ -4310,6 +4311,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.125  2002/05/16 15:42:54  lazarus
+  MG: fixed TForm ShowHide repositioning
+
   Revision 1.124  2002/05/15 05:58:17  lazarus
   MG: added TMainMenu.Parent