Simplified text_buffer callbacks

1 files changed, 0 insertions, 10 deletions

diff --git a/src/adapad.ads b/src/adapad.ads
index 0a739de..45cd6ad 100644
--- a/src/adapad.ads
+++ b/src/adapad.ads
@@ -128,15 +128,5 @@ private
     About_CB : aliased About_Callback;
 
 
-    type Mod_Callback is new FLTK.Text_Buffers.Modify_Callback with null record;
-    overriding procedure Call
-           (This         : in Mod_Callback;
-            Action       : in FLTK.Text_Buffers.Modification;
-            Place        : in FLTK.Text_Buffers.Position;
-            Length       : in Natural;
-            Deleted_Text : in String);
-    Mod_CB : aliased Mod_Callback;
-
-
 end Adapad;