diff options
Diffstat (limited to 'src/fltk-widgets-groups-text_displays.ads')
-rw-r--r-- | src/fltk-widgets-groups-text_displays.ads | 35 |
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; |