diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/fltk-environment.ads | 2 | ||||
| -rw-r--r-- | src/fltk-help_dialogs.adb | 16 |
2 files changed, 10 insertions, 8 deletions
diff --git a/src/fltk-environment.ads b/src/fltk-environment.ads index be32eee..4bb807b 100644 --- a/src/fltk-environment.ads +++ b/src/fltk-environment.ads @@ -31,8 +31,6 @@ package FLTK.Environment is type Binary_Data is array (Positive range <>) of Interfaces.Unsigned_8; - - Preference_Error : exception; diff --git a/src/fltk-help_dialogs.adb b/src/fltk-help_dialogs.adb index 323fcab..c7cf870 100644 --- a/src/fltk-help_dialogs.adb +++ b/src/fltk-help_dialogs.adb @@ -142,9 +142,9 @@ package body FLTK.Help_Dialogs is - ----------------------------------- - -- Controlled Type Subprograms -- - ----------------------------------- + ------------------- + -- Destructors -- + ------------------- procedure Finalize (This : in out Help_Dialog) is @@ -158,9 +158,9 @@ package body FLTK.Help_Dialogs is - ----------------------- - -- Help_Dialog API -- - ----------------------- + -------------------- + -- Constructors -- + -------------------- package body Forge is @@ -188,6 +188,10 @@ package body FLTK.Help_Dialogs is + ----------------------- + -- API Subprograms -- + ----------------------- + procedure Show (This : in out Help_Dialog) is begin |