diff options
Diffstat (limited to 'src/fltk-widgets-groups-browsers-textline-multi.adb')
| -rw-r--r-- | src/fltk-widgets-groups-browsers-textline-multi.adb | 111 |
1 files changed, 1 insertions, 110 deletions
diff --git a/src/fltk-widgets-groups-browsers-textline-multi.adb b/src/fltk-widgets-groups-browsers-textline-multi.adb index 670cbed..9d3fbf8 100644 --- a/src/fltk-widgets-groups-browsers-textline-multi.adb +++ b/src/fltk-widgets-groups-browsers-textline-multi.adb @@ -31,7 +31,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Multi is - function fl_multi_browser_item_width (B, I : in Storage.Integer_Address) return Interfaces.C.int; @@ -107,60 +106,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Multi is - - function fl_multi_browser_selection - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_multi_browser_selection, "fl_multi_browser_selection"); - pragma Inline (fl_multi_browser_selection); - - function fl_multi_browser_displayed2 - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_multi_browser_displayed2, "fl_multi_browser_displayed2"); - pragma Inline (fl_multi_browser_displayed2); - - function fl_multi_browser_find_item - (B : in Storage.Integer_Address; - Y : in Interfaces.C.int) - return Storage.Integer_Address; - pragma Import (C, fl_multi_browser_find_item, "fl_multi_browser_find_item"); - pragma Inline (fl_multi_browser_find_item); - - function fl_multi_browser_top - (B : in Storage.Integer_Address) - return Storage.Integer_Address; - pragma Import (C, fl_multi_browser_top, "fl_multi_browser_top"); - pragma Inline (fl_multi_browser_top); - - - - - procedure fl_multi_browser_bbox - (B : in Storage.Integer_Address; - X, Y, W, H : out Interfaces.C.int); - pragma Import (C, fl_multi_browser_bbox, "fl_multi_browser_bbox"); - pragma Inline (fl_multi_browser_bbox); - - function fl_multi_browser_leftedge - (B : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_multi_browser_leftedge, "fl_multi_browser_leftedge"); - pragma Inline (fl_multi_browser_leftedge); - - procedure fl_multi_browser_redraw_line - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_redraw_line, "fl_multi_browser_redraw_line"); - pragma Inline (fl_multi_browser_redraw_line); - - procedure fl_multi_browser_redraw_lines - (B : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_redraw_lines, "fl_multi_browser_redraw_lines"); - pragma Inline (fl_multi_browser_redraw_lines); - - - - function fl_multi_browser_full_width (B : in Storage.Integer_Address) return Interfaces.C.int; @@ -188,43 +133,6 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Multi is - function fl_multi_browser_lineno - (B, I : in Storage.Integer_Address) - return Interfaces.C.int; - pragma Import (C, fl_multi_browser_lineno, "fl_multi_browser_lineno"); - pragma Inline (fl_multi_browser_lineno); - - - - - procedure fl_multi_browser_new_list - (B : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_new_list, "fl_multi_browser_new_list"); - pragma Inline (fl_multi_browser_new_list); - - procedure fl_multi_browser_inserting - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_inserting, "fl_multi_browser_inserting"); - pragma Inline (fl_multi_browser_inserting); - - procedure fl_multi_browser_deleting - (B, I : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_deleting, "fl_multi_browser_deleting"); - pragma Inline (fl_multi_browser_deleting); - - procedure fl_multi_browser_replacing - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_replacing, "fl_multi_browser_replacing"); - pragma Inline (fl_multi_browser_replacing); - - procedure fl_multi_browser_swapping - (B, A1, A2 : in Storage.Integer_Address); - pragma Import (C, fl_multi_browser_swapping, "fl_multi_browser_swapping"); - pragma Inline (fl_multi_browser_swapping); - - - - procedure fl_multi_browser_draw (B : in Storage.Integer_Address); pragma Import (C, fl_multi_browser_draw, "fl_multi_browser_draw"); @@ -293,30 +201,13 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Multi is Item_Swap_Ptr => fl_multi_browser_item_swap'Address, Item_Text_Ptr => fl_multi_browser_item_text'Address, Item_Draw_Ptr => fl_multi_browser_item_draw'Address); - This.Item_Inherit_Ptrs := - (Current_Selection_Ptr => fl_multi_browser_selection'Address, - Is_Displayed_Ptr => fl_multi_browser_displayed2'Address, - Find_Item_Ptr => fl_multi_browser_find_item'Address, - Top_Item_Ptr => fl_multi_browser_top'Address); - This.Redrawing_Ptrs := - (Bounding_Box_Ptr => fl_multi_browser_bbox'Address, - Left_Edge_Ptr => fl_multi_browser_leftedge'Address, - Redraw_Line_Ptr => fl_multi_browser_redraw_line'Address, - Redraw_List_Ptr => fl_multi_browser_redraw_lines'Address); This.Wide_High_Ptrs := (Full_List_Width_Ptr => fl_multi_browser_full_width'Address, Full_List_Height_Ptr => fl_multi_browser_full_height'Address, Average_Item_Height_Ptr => fl_multi_browser_incr_height'Address, Item_Quick_Height_Ptr => fl_multi_browser_item_quick_height'Address); - This.Cache_Ptrs := - (New_List_Ptr => fl_multi_browser_new_list'Address, - Inserting_Ptr => fl_multi_browser_inserting'Address, - Deleting_Ptr => fl_multi_browser_deleting'Address, - Replacing_Ptr => fl_multi_browser_replacing'Address, - Swapping_Ptr => fl_multi_browser_swapping'Address); - This.Draw_Ptr := fl_multi_browser_draw'Address; + This.Draw_Ptr := fl_multi_browser_draw'Address; This.Handle_Ptr := fl_multi_browser_handle'Address; - This.Line_Number_Ptr := fl_multi_browser_lineno'Address; end Initialize; |