diff options
Diffstat (limited to 'src/fltk.ads')
-rw-r--r-- | src/fltk.ads | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/fltk.ads b/src/fltk.ads index 6c66352..203ee5e 100644 --- a/src/fltk.ads +++ b/src/fltk.ads @@ -1,8 +1,13 @@ -with Ada.Finalization; -private with Interfaces.C; -private with System; +with + + Ada.Finalization; + +private with + + Interfaces.C, + System; package FLTK is @@ -187,7 +192,6 @@ private (This : in Wrapper) return Boolean; - type Wrapper is abstract new Ada.Finalization.Limited_Controlled with record Void_Ptr : System.Address; @@ -197,7 +201,6 @@ private -- unsure if the above invariant is doing what I'm after -- oh well, something to work on - overriding procedure Initialize (This : in out Wrapper); @@ -219,12 +222,10 @@ private Keypress : Interfaces.Unsigned_16; end record; - function Key_To_C (Key : in Shortcut_Key) return Interfaces.C.unsigned_long; - function C_To_Key (Key : in Interfaces.C.unsigned_long) return Shortcut_Key; |