From 0c231d7e045b0ae92f7cf8db1329843010940d3e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 18 Nov 2016 20:29:13 +1100 Subject: Added text buffer callback enable/disable, text range retrieval functions --- fltk-text_buffers.ads | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'fltk-text_buffers.ads') 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; -- cgit