Expose API to Float/Put a child at a given position

For OC21-020

Change-Id: Id0cfed1e109358f09aeec8da5289830df3e3422a

Author: setton

features

@@ -9,6 +9,14 @@ An ISO date (YYYY-MM-DD) appears in parentheses after the
 description line. This date shows the implementation date
 of the feature.
 
+New features in GtkAda 17
+-------------------------
+
+OC21-020 additions to Gtkada.MDI.Float_Child and Gtkada.MDI.Put
+
+   New parameters allow controlling the position of the child as it is
+   being put in the MDI or when it is being floated.
+
 New features in GtkAda 3.14.1
 -----------------------------
 

src/gtkada-mdi.adb

@@ -2899,7 +2899,9 @@ package body Gtkada.MDI is
    procedure Put
      (MDI              : access MDI_Window_Record;
       Child            : access MDI_Child_Record'Class;
-      Initial_Position : Child_Position := Position_Automatic)
+      Initial_Position : Child_Position := Position_Automatic;
+      Position_At_Mouse : Boolean := True;
+      X, Y              : Gint := 0)
    is
       Float : constant Boolean :=
          MDI.All_Floating_Mode
@@ -2922,7 +2924,7 @@ package body Gtkada.MDI is
 
       Set_State (Child, Normal);
 
-      Float_Child (Child, Float);
+      Float_Child (Child, Float, Position_At_Mouse, X, Y);
 
       if not Float then
          Put_In_Notebook (MDI, Child, Initial_Position => Initial_Position);
@@ -3717,10 +3719,12 @@ package body Gtkada.MDI is
 
    procedure Float_Child
      (Child : access MDI_Child_Record'Class;
-      Float : Boolean) is
+      Float             : Boolean;
+      Position_At_Mouse : Boolean := True;
+      X, Y              : Gint := 0) is
    begin
       Internal_Float_Child
-        (Child, Float, Position_At_Mouse => True, X => 0, Y => 0);
+        (Child, Float, Position_At_Mouse => Position_At_Mouse, X => X, Y => Y);
    end Float_Child;
 
    -----------------------------------

src/gtkada-mdi.ads

@@ -294,12 +294,17 @@ package Gtkada.MDI is
    --     - Else the window is put on top of the currently selected window
 
    procedure Put
-     (MDI              : access MDI_Window_Record;
-      Child            : access MDI_Child_Record'Class;
-      Initial_Position : Child_Position := Position_Automatic);
+     (MDI               : access MDI_Window_Record;
+      Child             : access MDI_Child_Record'Class;
+      Initial_Position  : Child_Position := Position_Automatic;
+      Position_At_Mouse : Boolean := True;
+      X, Y              : Gint := 0);
    --  Add a new child to the MDI window, and return its embedding widget.
    --  Calling Put does not give the focus to the newly inserted widget.
    --  To do that, you should call Set_Focus_Child.
+   --  If Initial_Position is Position_Float, then position the floating window
+   --  under the mouse cursor, unless Position_At_Mouse is False, in which
+   --  case position the window at X, Y.
 
    function Save_Desktop
      (Self : not null access MDI_Child_Record) return Glib.Xml_Int.Node_Ptr;
@@ -620,8 +625,15 @@ package Gtkada.MDI is
    -----------------------
 
    procedure Float_Child
-     (Child : access MDI_Child_Record'Class; Float : Boolean);
-   --  Change the floating state of a child
+     (Child             : access MDI_Child_Record'Class;
+      Float             : Boolean;
+      Position_At_Mouse : Boolean := True;
+      X, Y              : Gint := 0);
+   --  Change the floating state of a child.
+   --  If Float is True:
+   --     - if Position_At_Mouse is True, position the window
+   --       under the mouse pointer.
+   --     - if Position_At_Mouse is False, use position the window at X, Y.
 
    function Is_Floating
      (Child : access MDI_Child_Record'Class) return Boolean;