From 49f2a539cdc77b504ddef00162625531b659c767 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 6 Jan 2025 23:46:40 +1300 Subject: Revised Browser subhierarchy, mostly protected method bindings --- src/fltk-widgets-groups-browsers-textline.ads | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'src/fltk-widgets-groups-browsers-textline.ads') diff --git a/src/fltk-widgets-groups-browsers-textline.ads b/src/fltk-widgets-groups-browsers-textline.ads index e9749dc..dac7ad9 100644 --- a/src/fltk-widgets-groups-browsers-textline.ads +++ b/src/fltk-widgets-groups-browsers-textline.ads @@ -342,11 +342,20 @@ private Element_Type => Image_Access); + type Item_Override_Fun is + (Item_Width_Ptr, Item_Height_Ptr, + Item_First_Ptr, Item_Last_Ptr, + Item_Next_Ptr, Item_Previous_Ptr, + Item_At_Ptr, Item_Select_Ptr, + Item_Selected_Ptr, Item_Swap_Ptr, + Item_Text_Ptr, Item_Draw_Ptr); + type Item_Override_Fun_Ptr_Array is array (Item_Override_Fun) of System.Address; + + type Textline_Browser is new Browser with record Columns : C_Col_Widths_Access; Icons : Image_Vectors.Vector; Item_Override_Ptrs : Item_Override_Fun_Ptr_Array; - Line_Number_Ptr : System.Address; end record; overriding procedure Initialize @@ -399,11 +408,6 @@ private pragma Inline (Has_Icon); pragma Inline (Get_Icon); - pragma Inline (Bounding_Box); - pragma Inline (Left_Edge); - pragma Inline (Redraw_Line); - pragma Inline (Redraw_List); - pragma Inline (Full_List_Height); pragma Inline (Average_Item_Height); -- cgit