From 7cb6ff5d49f79a2c44d947eabd5644c54eb9ea31 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:33 +0000
Subject: [PATCH] MG: fixed TPanel and Frame3D

git-svn-id: trunk@979 -
---
 lcl/interfaces/gtk/gtkproc.inc | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 145c8838c3..947aa7608f 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -1192,25 +1192,17 @@ end;
   UpdateNoteBookClientWidget
   Params: ANoteBook: TObject
 
-  The client widget of a notebook is the fixed widget of the current page.
   This procedure updates the 'Fixed' object data.
+  * obsolete *
 ------------------------------------------------------------------------------}
 procedure UpdateNoteBookClientWidget(ANoteBook: TObject);
-var //Index: integer;
-  {PanelWidget, }ClientWidget: PGtkWidget;
+var
+  ClientWidget: PGtkWidget;
   NoteBookWidget: PGtkNotebook;
 begin
   if not TCustomNotebook(ANoteBook).HandleAllocated then exit;
   NoteBookWidget:=PGtkNotebook(TCustomNotebook(ANoteBook).Handle);
   ClientWidget:=nil;
-  {if GetGtkNoteBookDummyPage(NoteBookWidget)=nil then begin
-    Index:=gtk_notebook_get_current_page(NoteBookWidget);
-    if Index>=0 then begin
-      PanelWidget:=gtk_notebook_get_nth_page(NoteBookWidget,Index);
-      if PanelWidget<>nil then
-        ClientWidget:=GetFixedWidget(PanelWidget);
-    end;
-  end;}
   SetFixedWidget(NoteBookWidget,ClientWidget);
 end;
 
@@ -3254,6 +3246,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.102  2002/09/20 13:11:13  lazarus
+  MG: fixed TPanel and Frame3D
+
   Revision 1.101  2002/09/19 16:45:54  lazarus
   MG: fixed Menu.Free and gdkwindow=nil bug