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.adb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/windows.adb')

diff --git a/src/windows.adb b/src/windows.adb
index 646ffb4..bf070a4 100644
--- a/src/windows.adb
+++ b/src/windows.adb
@@ -18,9 +18,8 @@ package body Windows is
     --  used to hide about/find/replace/etc windows instead
     --  of constantly creating and destroying them
 
-    overriding procedure Call
-           (This : in     Hide_Callback;
-            Item : in out W.Widget'Class)
+    procedure Hide_CB
+           (Item : in out W.Widget'Class)
     is
         P : access G.Group'Class;
     begin
@@ -37,7 +36,7 @@ package body Windows is
             end loop;
             WN.Window (P.all).Hide;
         end if;
-    end Call;
+    end Hide_CB;
 
 
 end Windows;
-- 
cgit