From bf5b67dee0d61996c3937dd8b255d5fcf2198973 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 11 Nov 2016 10:53:05 +1100
Subject: Simplified widget callbacks

---
 src/windows-find.adb | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'src/windows-find.adb')

diff --git a/src/windows-find.adb b/src/windows-find.adb
index 5459e38..f061ba3 100644
--- a/src/windows-find.adb
+++ b/src/windows-find.adb
@@ -21,11 +21,8 @@ package body Windows.Find is
 
 
 
-    Find_M : aliased Find_Marshaller;
-
-    overriding procedure Call
-           (This : in     Find_Marshaller;
-            Item : in out W.Widget'Class)
+    procedure Find_M
+           (Item : in out W.Widget'Class)
     is
         use type BU.State;
         type Find_Window_Access is access all Find_Window;
@@ -36,7 +33,7 @@ package body Windows.Find is
                    (Dialog.Find_What.Get_Value,
                     Dialog.Match_Case.Get_State = BU.On);
         end if;
-    end Call;
+    end Find_M;
 
 
 
-- 
cgit