Simplified widget callbacks

1 files changed, 3 insertions, 6 deletions

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;