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 --- ...ltk-widgets-groups-browsers-textline-choice.adb | 111 +-------------------- 1 file changed, 1 insertion(+), 110 deletions(-) (limited to 'src/fltk-widgets-groups-browsers-textline-choice.adb') diff --git a/src/fltk-widgets-groups-browsers-textline-choice.adb b/src/fltk-widgets-groups-browsers-textline-choice.adb index 565eba5..24b1317 100644 --- a/src/fltk-widgets-groups-browsers-textline-choice.adb +++ b/src/fltk-widgets-groups-browsers-textline-choice.adb @@ -31,7 +31,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Choice is - function fl_select_browser_item_width (B, I : in Storage.Integer_Address) return Interfaces.C.int; @@ -107,60 +106,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Choice is - - function fl_select_browser_selection - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_select_browser_selection, "fl_select_browser_selection"); - pragma Inline (fl_select_browser_selection); - - function fl_select_browser_displayed2 - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_select_browser_displayed2, "fl_select_browser_displayed2"); - pragma Inline (fl_select_browser_displayed2); - - function fl_select_browser_find_item - (B : in Storage.Integer_Address; - Y : in Interfaces.C.int) - return Storage.Integer_Address; - pragma Import (C, fl_select_browser_find_item, "fl_select_browser_find_item"); - pragma Inline (fl_select_browser_find_item); - - function fl_select_browser_top - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_select_browser_top, "fl_select_browser_top"); - pragma Inline (fl_select_browser_top); - - - - - procedure fl_select_browser_bbox - (B : in Storage.Integer_Address; - X, Y, W, H : out Interfaces.C.int); - pragma Import (C, fl_select_browser_bbox, "fl_select_browser_bbox"); - pragma Inline (fl_select_browser_bbox); - - function fl_select_browser_leftedge - (B : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_select_browser_leftedge, "fl_select_browser_leftedge"); - pragma Inline (fl_select_browser_leftedge); - - procedure fl_select_browser_redraw_line - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_redraw_line, "fl_select_browser_redraw_line"); - pragma Inline (fl_select_browser_redraw_line); - - procedure fl_select_browser_redraw_lines - (B : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_redraw_lines, "fl_select_browser_redraw_lines"); - pragma Inline (fl_select_browser_redraw_lines); - - - - function fl_select_browser_full_width (B : in Storage.Integer_Address) return Interfaces.C.int; @@ -188,43 +133,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Choice is - function fl_select_browser_lineno - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_select_browser_lineno, "fl_select_browser_lineno"); - pragma Inline (fl_select_browser_lineno); - - - - - procedure fl_select_browser_new_list - (B : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_new_list, "fl_select_browser_new_list"); - pragma Inline (fl_select_browser_new_list); - - procedure fl_select_browser_inserting - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_inserting, "fl_select_browser_inserting"); - pragma Inline (fl_select_browser_inserting); - - procedure fl_select_browser_deleting - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_deleting, "fl_select_browser_deleting"); - pragma Inline (fl_select_browser_deleting); - - procedure fl_select_browser_replacing - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_replacing, "fl_select_browser_replacing"); - pragma Inline (fl_select_browser_replacing); - - procedure fl_select_browser_swapping - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_select_browser_swapping, "fl_select_browser_swapping"); - pragma Inline (fl_select_browser_swapping); - - - - procedure fl_select_browser_draw (B : in Storage.Integer_Address); pragma Import (C, fl_select_browser_draw, "fl_select_browser_draw"); @@ -293,30 +201,13 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Choice is Item_Swap_Ptr => fl_select_browser_item_swap'Address, Item_Text_Ptr => fl_select_browser_item_text'Address, Item_Draw_Ptr => fl_select_browser_item_draw'Address); - This.Item_Inherit_Ptrs := - (Current_Selection_Ptr => fl_select_browser_selection'Address, - Is_Displayed_Ptr => fl_select_browser_displayed2'Address, - Find_Item_Ptr => fl_select_browser_find_item'Address, - Top_Item_Ptr => fl_select_browser_top'Address); - This.Redrawing_Ptrs := - (Bounding_Box_Ptr => fl_select_browser_bbox'Address, - Left_Edge_Ptr => fl_select_browser_leftedge'Address, - Redraw_Line_Ptr => fl_select_browser_redraw_line'Address, - Redraw_List_Ptr => fl_select_browser_redraw_lines'Address); This.Wide_High_Ptrs := (Full_List_Width_Ptr => fl_select_browser_full_width'Address, Full_List_Height_Ptr => fl_select_browser_full_height'Address, Average_Item_Height_Ptr => fl_select_browser_incr_height'Address, Item_Quick_Height_Ptr => fl_select_browser_item_quick_height'Address); - This.Cache_Ptrs := - (New_List_Ptr => fl_select_browser_new_list'Address, - Inserting_Ptr => fl_select_browser_inserting'Address, - Deleting_Ptr => fl_select_browser_deleting'Address, - Replacing_Ptr => fl_select_browser_replacing'Address, - Swapping_Ptr => fl_select_browser_swapping'Address); - This.Draw_Ptr := fl_select_browser_draw'Address; + This.Draw_Ptr := fl_select_browser_draw'Address; This.Handle_Ptr := fl_select_browser_handle'Address; - This.Line_Number_Ptr := fl_select_browser_lineno'Address; end Initialize; -- cgit