WIP: EphyNotebookgtk3_port

1 files changed, 13 insertions, 0 deletions

diff --git a/libgtk_kylix/GTKExtCtrls.pas b/libgtk_kylix/GTKExtCtrls.pas
index 0adfc1a..f288a18 100644
--- a/libgtk_kylix/GTKExtCtrls.pas
+++ b/libgtk_kylix/GTKExtCtrls.pas
@@ -117,11 +117,13 @@ type
     function GetShowTabs: boolean;
     function GetShowBorder: boolean;
     function GetScrollable: boolean;
+    function GetGroupName: String;
     procedure SetPageIndex(Value: integer);
     procedure SetTabPosition(Value: TGTKPosition);
     procedure SetShowTabs(Value: boolean);
     procedure SetShowBorder(Value: boolean);
     procedure SetScrollable(Value: boolean);
+    procedure SetGroupName(Value: String);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -138,6 +140,7 @@ type
     property ShowTabs: boolean read GetShowTabs write SetShowTabs;
     property ShowBorder: boolean read GetShowBorder write SetShowBorder;
     property Scrollable: boolean read GetScrollable write SetScrollable;
+    property GroupName: String read GetGroupName write SetGroupName;
     property OnSwitchPage: TNotifyEvent read FOnSwitchPage write FOnSwitchPage;
   end;
 
@@ -537,6 +540,16 @@ begin
   Result := TGTKLabel.CreateFromWidget(Self, gtk_notebook_get_tab_label(PGtkNotebook(FWidget), gtk_notebook_get_nth_page(PGtkNotebook(FWidget), PageNo)));
 end;
 
+function TGTKNotebook.GetGroupName: String;
+begin
+  Result := String(gtk_notebook_get_group_name(PGtkNotebook(FWidget)));
+end;
+
+procedure TGTKNotebook.SetGroupName(Value: String);
+begin
+  gtk_notebook_set_group_name(PGtkNotebook(FWidget), PChar(Value));
+end;
+
 (********************************************************************************************************************************)
 (********************************************************************************************************************************)
 procedure TGTKComboBox_changed(widget: PGtkComboBox; user_data: pgpointer); cdecl;