diff options
Diffstat (limited to 'fltk.ads')
-rw-r--r-- | fltk.ads | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -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; |