Simplified find/replace window callbacks

1 files changed, 0 insertions, 16 deletions

diff --git a/src/adapad.ads b/src/adapad.ads
index 9bb11b2..0a739de 100644
--- a/src/adapad.ads
+++ b/src/adapad.ads
@@ -138,21 +138,5 @@ private
     Mod_CB : aliased Mod_Callback;
 
 
-    type Do_Find_Callback is new Windows.Find.Find_Callback with null record;
-    overriding procedure Call
-           (This       : in Do_Find_Callback;
-            Item       : in String;
-            Match_Case : in Boolean);
-    Do_Find_CB : aliased Do_Find_Callback;
-
-
-    type Do_Replace_Callback is new Windows.Replace.Replace_Callback with null record;
-    overriding procedure Call
-           (This                    : in Do_Replace_Callback;
-            Item, Replace_With      : in String;
-            Match_Case, Replace_All : in Boolean);
-    Do_Replace_CB : aliased Do_Replace_Callback;
-
-
 end Adapad;