From b1a8b46960380dc3a771935a09c4e4a23e811c4a Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 27 May 2016 04:03:00 +1000
Subject: Text buffers, access types and line lengths

---
 src/fltk_binding/fltk.ads | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'src/fltk_binding/fltk.ads')

diff --git a/src/fltk_binding/fltk.ads b/src/fltk_binding/fltk.ads
index 33363df..51f05c1 100644
--- a/src/fltk_binding/fltk.ads
+++ b/src/fltk_binding/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;
 
-- 
cgit