From 2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 8 Nov 2016 06:58:44 +1100 Subject: Fixed a few errors turned up by latest GNAT --- src/adapad.adb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'src/adapad.adb') diff --git a/src/adapad.adb b/src/adapad.adb index 8f1196b..079fad3 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -16,8 +16,6 @@ use FLTK.Widgets.Groups.Windows; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -with Ada.Text_IO; - function Adapad return Integer is @@ -473,10 +471,10 @@ begin end; - Find.Set_Find_Callback (Do_Find_CB'Access); - Replace.Set_Replace_Callback (Do_Replace_CB'Access); - Buffer.Add_Modify_Callback (Mod_CB'Access); - Editor.Set_Callback (Quit_CB'Access); + Find.Set_Find_Callback (Do_Find_CB'Unchecked_Access); + Replace.Set_Replace_Callback (Do_Replace_CB'Unchecked_Access); + Buffer.Add_Modify_Callback (Mod_CB'Unchecked_Access); + Editor.Set_Callback (Quit_CB'Unchecked_Access); Editor.Set_Buffer (Buffer); -- cgit