diff options
Diffstat (limited to 'spec/fltk.ads')
| -rw-r--r-- | spec/fltk.ads | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/spec/fltk.ads b/spec/fltk.ads index f5287de..db75720 100644 --- a/spec/fltk.ads +++ b/spec/fltk.ads @@ -367,6 +367,8 @@ package FLTK is -- Menu Flags -- + -- Should these be moved to FLTK.Menu_Items? + type Menu_Flag is private; function "+" (Left, Right : in Menu_Flag) return Menu_Flag; @@ -480,11 +482,10 @@ private -- Note: This has to be Limited because otherwise the various init subprograms -- wouldn't work, the widget callbacks wouldn't work, deallocation would be -- a mess, really just all sorts of problems. - type Wrapper is new Ada.Finalization.Limited_Controlled with - record - Void_Ptr : Storage.Integer_Address := Null_Pointer; - Needs_Dealloc : Boolean := True; - end record; + type Wrapper is new Ada.Finalization.Limited_Controlled with record + Void_Ptr : Storage.Integer_Address := Null_Pointer; + Needs_Dealloc : Boolean := True; + end record; |