diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-05-27 04:03:00 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-27 04:03:00 +1000 |
commit | b1a8b46960380dc3a771935a09c4e4a23e811c4a (patch) | |
tree | 25d2693835dc3410165e19670b16a0c50a51ef4b /src/fltk_binding/fltk.ads | |
parent | 2b4468a62a55d9f8520582f9aa2e420ab89ed7bd (diff) |
Text buffers, access types and line lengths
Diffstat (limited to 'src/fltk_binding/fltk.ads')
-rw-r--r-- | src/fltk_binding/fltk.ads | 22 |
1 files changed, 22 insertions, 0 deletions
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; |