diff options
Diffstat (limited to 'src/fltk-widgets-groups-browsers-textline.adb')
| -rw-r--r-- | src/fltk-widgets-groups-browsers-textline.adb | 108 |
1 files changed, 2 insertions, 106 deletions
diff --git a/src/fltk-widgets-groups-browsers-textline.adb b/src/fltk-widgets-groups-browsers-textline.adb index 7c8dc3b..1e8988e 100644 --- a/src/fltk-widgets-groups-browsers-textline.adb +++ b/src/fltk-widgets-groups-browsers-textline.adb @@ -353,59 +353,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline is - function fl_browser_selection - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_browser_selection, "fl_browser_selection"); - pragma Inline (fl_browser_selection); - - function fl_browser_displayed2 - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_browser_displayed2, "fl_browser_displayed2"); - pragma Inline (fl_browser_displayed2); - - function fl_browser_find_item - (B : in Storage.Integer_Address; - Y : in Interfaces.C.int) - return Storage.Integer_Address; - pragma Import (C, fl_browser_find_item, "fl_browser_find_item"); - pragma Inline (fl_browser_find_item); - - function fl_browser_top - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_browser_top, "fl_browser_top"); - pragma Inline (fl_browser_top); - - - - - procedure fl_browser_bbox - (B : in Storage.Integer_Address; - X, Y, W, H : out Interfaces.C.int); - pragma Import (C, fl_browser_bbox, "fl_browser_bbox"); - pragma Inline (fl_browser_bbox); - - function fl_browser_leftedge - (B : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_browser_leftedge, "fl_browser_leftedge"); - pragma Inline (fl_browser_leftedge); - - procedure fl_browser_redraw_line - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_browser_redraw_line, "fl_browser_redraw_line"); - pragma Inline (fl_browser_redraw_line); - - procedure fl_browser_redraw_lines - (B : in Storage.Integer_Address); - pragma Import (C, fl_browser_redraw_lines, "fl_browser_redraw_lines"); - pragma Inline (fl_browser_redraw_lines); - - - - function fl_browser_full_width (B : in Storage.Integer_Address) return Interfaces.C.int; @@ -442,34 +389,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline is - procedure fl_browser_new_list - (B : in Storage.Integer_Address); - pragma Import (C, fl_browser_new_list, "fl_browser_new_list"); - pragma Inline (fl_browser_new_list); - - procedure fl_browser_inserting - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_browser_inserting, "fl_browser_inserting"); - pragma Inline (fl_browser_inserting); - - procedure fl_browser_deleting - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_browser_deleting, "fl_browser_deleting"); - pragma Inline (fl_browser_deleting); - - procedure fl_browser_replacing - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_browser_replacing, "fl_browser_replacing"); - pragma Inline (fl_browser_replacing); - - procedure fl_browser_swapping - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_browser_swapping, "fl_browser_swapping"); - pragma Inline (fl_browser_swapping); - - - - procedure fl_browser_draw (B : in Storage.Integer_Address); pragma Import (C, fl_browser_draw, "fl_browser_draw"); @@ -551,30 +470,13 @@ package body FLTK.Widgets.Groups.Browsers.Textline is Item_Swap_Ptr => fl_browser_item_swap'Address, Item_Text_Ptr => fl_browser_item_text'Address, Item_Draw_Ptr => fl_browser_item_draw'Address); - This.Item_Inherit_Ptrs := - (Current_Selection_Ptr => fl_browser_selection'Address, - Is_Displayed_Ptr => fl_browser_displayed2'Address, - Find_Item_Ptr => fl_browser_find_item'Address, - Top_Item_Ptr => fl_browser_top'Address); - This.Redrawing_Ptrs := - (Bounding_Box_Ptr => fl_browser_bbox'Address, - Left_Edge_Ptr => fl_browser_leftedge'Address, - Redraw_Line_Ptr => fl_browser_redraw_line'Address, - Redraw_List_Ptr => fl_browser_redraw_lines'Address); This.Wide_High_Ptrs := (Full_List_Width_Ptr => fl_browser_full_width'Address, Full_List_Height_Ptr => fl_browser_full_height'Address, Average_Item_Height_Ptr => fl_browser_incr_height'Address, Item_Quick_Height_Ptr => fl_browser_item_quick_height'Address); - This.Cache_Ptrs := - (New_List_Ptr => fl_browser_new_list'Address, - Inserting_Ptr => fl_browser_inserting'Address, - Deleting_Ptr => fl_browser_deleting'Address, - Replacing_Ptr => fl_browser_replacing'Address, - Swapping_Ptr => fl_browser_swapping'Address); This.Draw_Ptr := fl_browser_draw'Address; This.Handle_Ptr := fl_browser_handle'Address; - This.Line_Number_Ptr := fl_browser_lineno'Address; end Initialize; @@ -1244,15 +1146,9 @@ package body FLTK.Widgets.Groups.Browsers.Textline is function Line_Number (This : in Textline_Browser; Item : in Item_Cursor) - return Natural - is - function my_lineno - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - for my_lineno'Address use This.Line_Number_Ptr; - pragma Import (Ada, my_lineno); + return Natural is begin - return Natural (my_lineno (This.Void_Ptr, Cursor_To_Address (Item))); + return Natural (fl_browser_lineno (This.Void_Ptr, Cursor_To_Address (Item))); end Line_Number; |