Added jump to feature

1 files changed, 42 insertions, 0 deletions

diff --git a/fltk-widgets-groups-text_displays.adb b/fltk-widgets-groups-text_displays.adb
index 71aeee0..c6a1589 100644
--- a/fltk-widgets-groups-text_displays.adb
+++ b/fltk-widgets-groups-text_displays.adb
@@ -85,6 +85,18 @@ package body FLTK.Widgets.Groups.Text_Displays is
             W, M  : in Interfaces.C.int);
     pragma Import (C, fl_text_display_wrap_mode, "fl_text_display_wrap_mode");
 
+    function fl_text_display_skip_lines
+           (TD      : in System.Address;
+            S, L, P : in Interfaces.C.int)
+        return Interfaces.C.int;
+    pragma Import (C, fl_text_display_skip_lines, "fl_text_display_skip_lines");
+
+    function fl_text_display_rewind_lines
+           (TD   : in System.Address;
+            S, L : in Interfaces.C.int)
+        return Interfaces.C.int;
+    pragma Import (C, fl_text_display_rewind_lines, "fl_text_display_rewind_lines");
+
 
 
 
@@ -264,5 +276,35 @@ package body FLTK.Widgets.Groups.Text_Displays is
     end Set_Wrap_Mode;
 
 
+
+
+    function Skip_Lines
+           (This                    : in out Text_Display;
+            Start, Lines            : in     Natural;
+            Start_Pos_Is_Line_Start : in     Boolean := False)
+        return Natural is
+    begin
+        return Natural (fl_text_display_skip_lines
+               (This.Void_Ptr,
+                Interfaces.C.int (Start),
+                Interfaces.C.int (Lines),
+                Boolean'Pos (Start_Pos_Is_Line_Start)));
+    end Skip_Lines;
+
+
+
+
+    function Rewind_Lines
+           (This         : in out Text_Display;
+            Start, Lines : in     Natural)
+        return Natural is
+    begin
+        return Natural (fl_text_display_rewind_lines
+               (This.Void_Ptr,
+                Interfaces.C.int (Start),
+                Interfaces.C.int (Lines)));
+    end Rewind_Lines;
+
+
 end FLTK.Widgets.Groups.Text_Displays;