From f15e45791a0658fd5a062629f59c4815ce8b2489 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 28 May 2016 14:53:13 +1000
Subject: Text editors, single and menu windows

---
 fltk-widgets-groups-text_displays.adb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/fltk-widgets-groups-text_displays.adb b/fltk-widgets-groups-text_displays.adb
index e39355f..5907185 100644
--- a/fltk-widgets-groups-text_displays.adb
+++ b/fltk-widgets-groups-text_displays.adb
@@ -110,11 +110,11 @@ package body FLTK.Widgets.Groups.Text_Displays is
 
 
     procedure Set_Buffer
-           (TD : in out Text_Display'Class;
-            TB : in     Text_Buffer_Access) is
+           (TD :         in out Text_Display'Class;
+            TB : aliased in out Text_Buffer) is
     begin
-        fl_text_display_set_buffer (TD.Void_Ptr, Wrapper (TB.all).Void_Ptr);
-        TD.Buffer := TB;
+        fl_text_display_set_buffer (TD.Void_Ptr, Wrapper (TB).Void_Ptr);
+        TD.Buffer := TB'Access;
     end Set_Buffer;
 
 
-- 
cgit