diff options
Diffstat (limited to 'src/fltk_binding/fltk-text_buffers.adb')
| -rw-r--r-- | src/fltk_binding/fltk-text_buffers.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-text_buffers.adb b/src/fltk_binding/fltk-text_buffers.adb index 6ff5b55..38e6632 100644 --- a/src/fltk_binding/fltk-text_buffers.adb +++ b/src/fltk_binding/fltk-text_buffers.adb @@ -99,6 +99,11 @@ package body FLTK.Text_Buffers is return Interfaces.C.int; pragma Import (C, fl_text_buffer_selection_position, "fl_text_buffer_selection_position"); + function fl_text_buffer_selected + (TB : in System.Address) + return Interfaces.C.int; + pragma Import (C, fl_text_buffer_selected, "fl_text_buffer_selected"); + function fl_text_buffer_skip_lines (TB : in System.Address; S, L : in Interfaces.C.int) @@ -418,6 +423,16 @@ package body FLTK.Text_Buffers is + function Has_Selection + (This : in Text_Buffer) + return Boolean is + begin + return fl_text_buffer_selected (This.Void_Ptr) /= 0; + end Has_Selection; + + + + function Skip_Lines (This : in out Text_Buffer; Start, Lines : in Natural) |