From 646bb5b98226ecfcee8b02d669b9cef5d00bbded Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 11 Nov 2016 08:00:48 +1100
Subject: Simplified text_buffer callbacks

---
 src/adapad.adb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/adapad.adb')

diff --git a/src/adapad.adb b/src/adapad.adb
index 1f2c03d..5d53d7c 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -212,9 +212,8 @@ package body Adapad is
 
     --  callbacks for the text buffer
 
-    overriding procedure Call
-           (This         : in Mod_Callback;
-            Action       : in FLTK.Text_Buffers.Modification;
+    procedure Mod_CB
+           (Action       : in FLTK.Text_Buffers.Modification;
             Place        : in FLTK.Text_Buffers.Position;
             Length       : in Natural;
             Deleted_Text : in String)
@@ -225,7 +224,7 @@ package body Adapad is
             Changed := True;
         end if;
         Set_Title;
-    end Call;
+    end Mod_CB;
 
 
 
-- 
cgit