From bf5b67dee0d61996c3937dd8b255d5fcf2198973 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 11 Nov 2016 10:53:05 +1100 Subject: Simplified widget callbacks --- src/windows-replace.adb | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/windows-replace.adb') diff --git a/src/windows-replace.adb b/src/windows-replace.adb index a0bdcff..f158f7b 100644 --- a/src/windows-replace.adb +++ b/src/windows-replace.adb @@ -21,11 +21,8 @@ package body Windows.Replace is - Replace_M : aliased Replace_Marshaller; - - overriding procedure Call - (This : in Replace_Marshaller; - Item : in out W.Widget'Class) + procedure Replace_M + (Item : in out W.Widget'Class) is use type BU.State; type Replace_Window_Access is access all Replace_Window; @@ -38,7 +35,7 @@ package body Windows.Replace is Dialog.Match_Case.Get_State = BU.On, Dialog.Replace_All.Get_State = BU.On); end if; - end Call; + end Replace_M; -- cgit