From de64e0a5e317a34224d91382ffe383844861f42c Mon Sep 17 00:00:00 2001
From: andrew <andrew@lazarus-ide.org>
Date: Tue, 7 Jan 2014 05:55:09 +0000
Subject: [PATCH] added setText for gtk3 TPage. still need to set initial page
 value correctly

git-svn-id: trunk@43669 -
---
 lcl/interfaces/gtk3/gtk3widgets.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas
index fabd11a391..82c79f6253 100644
--- a/lcl/interfaces/gtk3/gtk3widgets.pas
+++ b/lcl/interfaces/gtk3/gtk3widgets.pas
@@ -347,6 +347,7 @@ type
 
   TGtk3Page = class(TGtk3Container)
   protected
+    procedure setText(AValue: String); override;
     function CreateWidget(const Params: TCreateParams):PGtkWidget; override;
   public
     function getClientRect: TRect; override;
@@ -3836,6 +3837,17 @@ end;
 
 { TGtk3Page }
 
+procedure TGtk3Page.setText(AValue: String);
+var
+  Parent: TGtk3NoteBook;
+begin
+  Parent := TGtk3NoteBook(getParent);
+  if Parent <> nil then
+  begin
+    Parent.SetTabLabelText(TCustomPage(LCLObject), AValue);
+  end;
+end;
+
 function TGtk3Page.CreateWidget(const Params: TCreateParams): PGtkWidget;
 begin
   FWidgetType := FWidgetType + [wtContainer];
@@ -3844,6 +3856,7 @@ begin
   PGtkHBox(Result)^.pack_start(FCentralWidget, True , True, 0);
   PGtkFixed(FCentralWidget)^.set_has_window(True);
   // PGtkFixed(FCentralWidget)^.set_can_focus(True);
+
 end;
 
 function TGtk3Page.getClientRect: TRect;