From 01af58c37a8eab2346b4a9047b2a1e0b994f120c Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Nov 2016 20:06:05 +1100 Subject: Added optional line numbers --- fltk-widgets-groups-text_displays.adb | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'fltk-widgets-groups-text_displays.adb') diff --git a/fltk-widgets-groups-text_displays.adb b/fltk-widgets-groups-text_displays.adb index c6a1589..1aa5962 100644 --- a/fltk-widgets-groups-text_displays.adb +++ b/fltk-widgets-groups-text_displays.adb @@ -97,6 +97,11 @@ package body FLTK.Widgets.Groups.Text_Displays is return Interfaces.C.int; pragma Import (C, fl_text_display_rewind_lines, "fl_text_display_rewind_lines"); + procedure fl_text_display_linenumber_width + (TD : in System.Address; + W : in Interfaces.C.int); + pragma Import (C, fl_text_display_linenumber_width, "fl_text_display_linenumber_width"); + @@ -306,5 +311,17 @@ package body FLTK.Widgets.Groups.Text_Displays is end Rewind_Lines; + + + procedure Set_Linenumber_Width + (This : in out Text_Display; + Width : in Natural) is + begin + fl_text_display_linenumber_width + (This.Void_Ptr, + Interfaces.C.int (Width)); + end Set_Linenumber_Width; + + end FLTK.Widgets.Groups.Text_Displays; -- cgit