diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-06-17 11:28:39 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-06-17 11:28:39 +1000 |
| commit | fb37523537cdb69a31dede401a604981ce8b7b9d (patch) | |
| tree | 9d8f8dc3a00ce27b69aa4b7d7696b49d659fcbe1 /src/fltk.adb | |
| parent | 33c3691b571ce4b6a2aa6997b70c3bc5d991ca9d (diff) | |
Updated coding style, added progress log
Diffstat (limited to 'src/fltk.adb')
| -rw-r--r-- | src/fltk.adb | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/src/fltk.adb b/src/fltk.adb index ad70379..8970efd 100644 --- a/src/fltk.adb +++ b/src/fltk.adb @@ -1,9 +1,14 @@ -with Interfaces.C; -with System; -use type System.Address; -use type Interfaces.C.unsigned_long; +with + + Interfaces.C, + System; + +use type + + Interfaces.C.unsigned_long, + System.Address; package body FLTK is @@ -32,8 +37,6 @@ package body FLTK is end Has_Valid_Ptr; - - procedure Initialize (This : in out Wrapper) is begin @@ -65,8 +68,6 @@ package body FLTK is end "+"; - - function "+" (Left : in Modifier_Key; Right : in Pressable_Key) @@ -79,8 +80,6 @@ package body FLTK is end "+"; - - function "+" (Left : in Modifier_Key; Right : in Shortcut_Key) @@ -104,8 +103,6 @@ package body FLTK is end Key_To_C; - - function C_To_Key (Key : in Interfaces.C.unsigned_long) return Shortcut_Key is |