From 32062c660307d5b34f46b1f7b75d17a184930e71 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 27 May 2016 04:03:00 +1000 Subject: Text buffers, access types and line lengths --- fltk.ads | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'fltk.ads') 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; -- cgit