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.ads | 6 ------
 1 file changed, 6 deletions(-)

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

diff --git a/src/windows-find.ads b/src/windows-find.ads
index 31ea2f6..3708d0d 100644
--- a/src/windows-find.ads
+++ b/src/windows-find.ads
@@ -42,12 +42,6 @@ package Windows.Find is
 private
 
 
-    type Find_Marshaller is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Find_Marshaller;
-            Item : in out FLTK.Widgets.Widget'Class);
-
-
     type Find_Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with
         record
             Find_What  : FLTK.Widgets.Inputs.Input;
-- 
cgit