From 61342fd9e3c4cf2eb388fc7a6ba971859020b456 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 10 Nov 2016 21:26:59 +1100 Subject: Simplified find/replace window callbacks --- src/adapad.ads | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'src/adapad.ads') 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; -- cgit