1 files changed, 3 insertions, 4 deletions
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;