Text buffers, access types and line lengths

1 files changed, 22 insertions, 0 deletions

diff --git a/fltk.ads b/fltk.ads
index 33363df..51f05c1 100644
--- a/fltk.ads
+++ b/fltk.ads
@@ -1,10 +1,32 @@
 
 
+with Ada.Finalization;
+private with System;
+
+
 package FLTK is
 
 
     function Run return Integer;
 
 
+    --  ugly implementation thing; never use this
+    --  just ignore the hand moving behind the curtain here
+    type Wrapper is abstract new Ada.Finalization.Limited_Controlled with private;
+
+
+private
+
+
+    type Wrapper is abstract new Ada.Finalization.Limited_Controlled with
+        record
+            Void_Ptr : System.Address;
+        end record;
+
+
+    overriding procedure Initialize
+           (This : in out Wrapper);
+
+
 end FLTK;