More methods added to Text_Display widget

1 files changed, 35 insertions, 0 deletions

diff --git a/src/fltk-widgets-groups-text_displays.ads b/src/fltk-widgets-groups-text_displays.ads
index 2a6d50d..c1c3ea8 100644
--- a/src/fltk-widgets-groups-text_displays.ads
+++ b/src/fltk-widgets-groups-text_displays.ads
@@ -10,6 +10,7 @@ package FLTK.Widgets.Groups.Text_Displays is
 
 
     type Wrap_Mode is (Wrap_None, Wrap_At_Column, Wrap_At_Pixel, Wrap_At_Bounds);
+    type Cursor_Style is (Normal, Caret, Dim, Block, Heavy, Simple);
 
 
     function Create
@@ -28,6 +29,33 @@ package FLTK.Widgets.Groups.Text_Displays is
             Buff : in out FLTK.Text_Buffers.Text_Buffer);
 
 
+    function Col_To_X
+           (This    : in Text_Display;
+            Col_Num : in Integer)
+        return Integer;
+
+
+    function X_To_Col
+           (This  : in Text_Display;
+            X_Pos : in Integer)
+        return Integer;
+
+
+    function Get_Cursor_Color
+           (This : in Text_Display)
+        return Color;
+
+
+    procedure Set_Cursor_Color
+           (This : in out Text_Display;
+            Col  : in     Color);
+
+
+    procedure Set_Cursor_Style
+           (This  : in out Text_Display;
+            Style : in     Cursor_Style);
+
+
     function Get_Text_Color
            (This : in Text_Display)
         return Color;
@@ -86,6 +114,13 @@ package FLTK.Widgets.Groups.Text_Displays is
             Margin : in     Natural := 0);
 
 
+    function Count_Lines
+           (This                    : in Text_Display;
+            Start, Finish           : in Natural;
+            Start_Pos_Is_Line_Start : in Boolean := False)
+        return Natural;
+
+
     --  takes into account word wrap as well as newline characters
     function Skip_Lines
            (This                    : in out Text_Display;