diff options
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; |