diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 14:43:10 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 14:43:10 +1100 |
commit | fa595e9e5b9c7692f21df548a0d06b5a3671fbc1 (patch) | |
tree | 16f03415710455471c4a54aba002fef4676840aa /fltk-text_buffers.adb | |
parent | b34ef4af65403999f7e4e9c152f39cbe3744c7b5 (diff) |
Edit and search menu items now grey themselves out when appropriate
Diffstat (limited to 'fltk-text_buffers.adb')
-rw-r--r-- | fltk-text_buffers.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/fltk-text_buffers.adb b/fltk-text_buffers.adb index 6ff5b55..38e6632 100644 --- a/fltk-text_buffers.adb +++ b/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) |