From 32062c660307d5b34f46b1f7b75d17a184930e71 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 27 May 2016 04:03:00 +1000
Subject: Text buffers, access types and line lengths

---
 fltk-widgets-groups-text_displays.ads | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'fltk-widgets-groups-text_displays.ads')

diff --git a/fltk-widgets-groups-text_displays.ads b/fltk-widgets-groups-text_displays.ads
index bc50ae1..3481258 100644
--- a/fltk-widgets-groups-text_displays.ads
+++ b/fltk-widgets-groups-text_displays.ads
@@ -1,5 +1,6 @@
 
 
+with FLTK.Text_Buffers; use FLTK.Text_Buffers;
 with FLTK.Enums; use FLTK.Enums;
 
 
@@ -7,6 +8,7 @@ package FLTK.Widgets.Groups.Text_Displays is
 
 
     type Text_Display is new Group with private;
+    type Text_Display_Access is access all Text_Display;
 
 
     function Create
@@ -15,6 +17,16 @@ package FLTK.Widgets.Groups.Text_Displays is
         return Text_Display;
 
 
+    function Get_Buffer
+           (TD : in Text_Display'Class)
+        return Text_Buffer_Access;
+
+
+    procedure Set_Buffer
+           (TD : in out Text_Display'Class;
+            TB : in     Text_Buffer_Access);
+
+
     function Get_Text_Color
            (TD : in Text_Display'Class)
         return Color;
@@ -48,7 +60,10 @@ package FLTK.Widgets.Groups.Text_Displays is
 private
 
 
-    type Text_Display is new Group with null record;
+    type Text_Display is new Group with
+        record
+            Buffer : Text_Buffer_Access;
+        end record;
 
 
     overriding procedure Finalize
-- 
cgit