From 3a9028302447ad84363c580b2152f30417186667 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 8 Jan 2025 14:33:30 +1300
Subject: Revised Input subhierarchy, separated bindings for Fl_Input and
 Fl_Input_ widgets

---
 src/fltk-widgets.ads | 27 ++++-----------------------
 1 file changed, 4 insertions(+), 23 deletions(-)

(limited to 'src/fltk-widgets.ads')

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index 9a8537b..46e5733 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -329,7 +329,7 @@ package FLTK.Widgets is
             X, Y, W, H : in     Integer);
 
     procedure Draw
-           (This : in out Widget) is null;
+           (This : in out Widget);
 
     procedure Draw_Label
            (This       : in Widget;
@@ -360,6 +360,9 @@ private
             Handle_Ptr     : System.Address;
         end record;
 
+    overriding procedure Initialize
+           (This : in out Widget);
+
     overriding procedure Finalize
            (This : in out Widget);
 
@@ -386,8 +389,6 @@ private
     with Inline;
 
 
-
-
     type Callback_Flag is new Interfaces.C.unsigned;
 
     Call_Never     : constant Callback_Flag := 0;
@@ -397,8 +398,6 @@ private
     When_Enter_Key : constant Callback_Flag := 8;
 
 
-
-
     --  the user data portion should always be a reference back to the Ada binding
     procedure Callback_Hook
            (W, U : in Storage.Integer_Address);
@@ -415,14 +414,10 @@ private
     pragma Export (C, Handle_Hook, "widget_handle_hook");
 
 
-
-
     package Widget_Convert is new System.Address_To_Access_Conversions (Widget'Class);
     package Callback_Convert renames FLTK.Widget_Callback_Conversions;
 
 
-
-
     function fl_widget_get_user_data
            (W : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -435,8 +430,6 @@ private
     pragma Inline (fl_widget_set_user_data);
 
 
-
-
     procedure fl_widget_set_label
            (W : in Storage.Integer_Address;
             T : in Interfaces.C.char_array);
@@ -444,15 +437,12 @@ private
     pragma Inline (fl_widget_set_label);
 
 
-
-
     pragma Inline (Activate);
     pragma Inline (Deactivate);
     pragma Inline (Is_Active);
     pragma Inline (Is_Tree_Active);
     pragma Inline (Set_Active);
 
-
     pragma Inline (Has_Changed);
     pragma Inline (Set_Changed);
     pragma Inline (Is_Output_Only);
@@ -460,19 +450,16 @@ private
     pragma Inline (Is_Visible);
     pragma Inline (Set_Visible);
 
-
     pragma Inline (Has_Visible_Focus);
     pragma Inline (Set_Visible_Focus);
     pragma Inline (Take_Focus);
     pragma Inline (Takes_Events);
 
-
     pragma Inline (Get_Background_Color);
     pragma Inline (Set_Background_Color);
     pragma Inline (Get_Selection_Color);
     pragma Inline (Set_Selection_Color);
 
-
     pragma Inline (Parent);
     pragma Inline (Contains);
     pragma Inline (Inside);
@@ -480,7 +467,6 @@ private
     pragma Inline (Top_Window);
     pragma Inline (Top_Window_Offset);
 
-
     pragma Inline (Get_Alignment);
     pragma Inline (Set_Alignment);
     pragma Inline (Get_Box);
@@ -488,7 +474,6 @@ private
     pragma Inline (Get_Tooltip);
     pragma Inline (Set_Tooltip);
 
-
     pragma Inline (Get_Label);
     pragma Inline (Set_Label);
     pragma Inline (Get_Label_Color);
@@ -501,14 +486,12 @@ private
     pragma Inline (Set_Label_Type);
     pragma Inline (Measure_Label);
 
-
     pragma Inline (Get_Callback);
     pragma Inline (Set_Callback);
     pragma Inline (Do_Callback);
     pragma Inline (Get_When);
     pragma Inline (Set_When);
 
-
     pragma Inline (Get_X);
     pragma Inline (Get_Y);
     pragma Inline (Get_W);
@@ -516,13 +499,11 @@ private
     pragma Inline (Resize);
     pragma Inline (Reposition);
 
-
     pragma Inline (Get_Image);
     pragma Inline (Set_Image);
     pragma Inline (Get_Inactive_Image);
     pragma Inline (Set_Inactive_Image);
 
-
     pragma Inline (Is_Damaged);
     pragma Inline (Set_Damaged);
     pragma Inline (Draw);
-- 
cgit