From fa595e9e5b9c7692f21df548a0d06b5a3671fbc1 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 14 Nov 2016 14:43:10 +1100
Subject: Edit and search menu items now grey themselves out when appropriate

---
 fltk-text_buffers.adb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'fltk-text_buffers.adb')

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)
-- 
cgit