Added text buffer callback enable/disable, text range retrieval functions

1 files changed, 20 insertions, 0 deletions

diff --git a/fltk-text_buffers.ads b/fltk-text_buffers.ads
index c17b020..d3e1bab 100644
--- a/fltk-text_buffers.ads
+++ b/fltk-text_buffers.ads
@@ -52,12 +52,25 @@ package FLTK.Text_Buffers is
            (This : in out Text_Buffer);
 
 
+    procedure Enable_Callbacks
+           (This : in out Text_Buffer);
+
+
+    procedure Disable_Callbacks
+           (This : in out Text_Buffer);
+
+
     procedure Insert_Text
            (This : in out Text_Buffer;
             Pos  : in     Natural;
             Item : in     String);
 
 
+    procedure Remove_Text
+           (This          : in out Text_Buffer;
+            Start, Finish : in     Natural);
+
+
     function Length
            (This : in Text_Buffer)
         return Natural;
@@ -131,6 +144,12 @@ package FLTK.Text_Buffers is
         return Character;
 
 
+    function Text_At
+           (This          : in Text_Buffer;
+            Start, Finish : in Natural)
+        return String;
+
+
 private
 
 
@@ -144,6 +163,7 @@ private
 
     type Text_Buffer is new Wrapper with
         record
+            CB_Active     : Boolean;
             Modify_CBs    : Modify_Vectors.Vector;
             Predelete_CBs : Predelete_Vectors.Vector;
         end record;