From 8d0d41649b6b4699cfb2c6c05dda09c29b4c3d15 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 4 Oct 2016 21:34:08 +1100
Subject: Basic replace functionality added

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

(limited to 'fltk-text_buffers.adb')

diff --git a/fltk-text_buffers.adb b/fltk-text_buffers.adb
index 6df96cb..b3b8344 100644
--- a/fltk-text_buffers.adb
+++ b/fltk-text_buffers.adb
@@ -46,6 +46,12 @@ package body FLTK.Text_Buffers is
     pragma Import (C, fl_text_buffer_call_predelete_callbacks,
                     "fl_text_buffer_call_predelete_callbacks");
 
+    procedure fl_text_buffer_insert
+           (TB : in System.Address;
+            P  : in Interfaces.C.int;
+            I  : in Interfaces.C.char_array);
+    pragma Import (C, fl_text_buffer_insert, "fl_text_buffer_insert");
+
     function fl_text_buffer_length
            (TB : in System.Address)
         return Interfaces.C.int;
@@ -237,6 +243,20 @@ package body FLTK.Text_Buffers is
 
 
 
+    procedure Insert_Text
+           (This : in out Text_Buffer;
+            Pos  : in     Natural;
+            Item : in     String) is
+    begin
+        fl_text_buffer_insert
+               (This.Void_Ptr,
+                Interfaces.C.int (Pos),
+                Interfaces.C.To_C (Item));
+    end Insert_Text;
+
+
+
+
     function Length
            (This : in Text_Buffer)
         return Natural is
-- 
cgit