Simplified widget callbacks

1 files changed, 3 insertions, 4 deletions

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;