From 61342fd9e3c4cf2eb388fc7a6ba971859020b456 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 10 Nov 2016 21:26:59 +1100 Subject: Simplified find/replace window callbacks --- src/windows-replace.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/windows-replace.adb') diff --git a/src/windows-replace.adb b/src/windows-replace.adb index 5db325a..a0bdcff 100644 --- a/src/windows-replace.adb +++ b/src/windows-replace.adb @@ -32,7 +32,7 @@ package body Windows.Replace is Dialog : access Replace_Window := Replace_Window_Access (Item.Parent); begin if Dialog.Callback /= null then - Dialog.Callback.Call + Dialog.Callback.all (Dialog.Find_What.Get_Value, Dialog.Replace_With.Get_Value, Dialog.Match_Case.Get_State = BU.On, @@ -133,7 +133,7 @@ package body Windows.Replace is procedure Set_Replace_Callback (This : in out Replace_Window; - Func : not null access Replace_Callback'Class) is + Func : in Replace_Callback) is begin This.Callback := Func; end Set_Replace_Callback; -- cgit