diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-18 20:29:13 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-18 20:29:13 +1100 |
commit | 5045c1fb020480ac1bcc2aca921f886c0057a73f (patch) | |
tree | 5b2961b3cbac755426089960b49d697b56b4504d /src/fltk_binding/fltk-text_buffers.ads | |
parent | 8fe1342dcbbc2fcad262f31ecf24f73ee08c1f1c (diff) |
Added text buffer callback enable/disable, text range retrieval functions
Diffstat (limited to 'src/fltk_binding/fltk-text_buffers.ads')
-rw-r--r-- | src/fltk_binding/fltk-text_buffers.ads | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-text_buffers.ads b/src/fltk_binding/fltk-text_buffers.ads index c17b020..d3e1bab 100644 --- a/src/fltk_binding/fltk-text_buffers.ads +++ b/src/fltk_binding/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; |