S528-011: Expose a function to retrieve a MDI_Child notebook

Change-Id: Ie9597a1af4e56ffb070cdf5798216e3e273d3e12
AdaCore · Jun 17, 2019 · 32a6919 · 32a6919
1 parent 86137ba
commit 32a6919
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/src/gtkada-mdi.adb b/src/gtkada-mdi.adb
@@ -808,6 +808,18 @@ package body Gtkada.MDI is
       end if;
    end Set_State;
 
+   ------------------------
+   -- Get_Child_Notebook --
+   ------------------------
+
+   function Get_Child_Notebook
+     (Child : access MDI_Child_Record'Class) return Gtk.Notebook.Gtk_Notebook
+   is
+      Notebook : constant MDI_Notebook := Get_Notebook (Child);
+   begin
+      return Gtk_Notebook (Notebook);
+   end Get_Child_Notebook;
+
    ------------------
    -- Get_Notebook --
    ------------------

diff --git a/src/gtkada-mdi.ads b/src/gtkada-mdi.ads
@@ -399,6 +399,10 @@ package Gtkada.MDI is
       return Tab_Orientation_Type;
    --  Return the child's tab orientation
 
+   function Get_Child_Notebook
+     (Child : access MDI_Child_Record'Class) return Gtk.Notebook.Gtk_Notebook;
+   --  Return the notebook that directly contains Child
+
    function Get_Tooltip
      (Child : not null access MDI_Child_Record)
      return String;