diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-29 13:38:11 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-29 13:38:11 +1300 |
| commit | 82ec0d8c8d1ba164aa2d29c8f1203730aa51988c (patch) | |
| tree | 5a97b24d2c1325a2563a4cff70f285fd6da34b44 /body/fltk-widgets-inputs-text-file.adb | |
| parent | dee76d5884c6f079ea3a2387d07289534a51a0c1 (diff) | |
Raises of Internal_FLTK_Error now come with error messages
Diffstat (limited to 'body/fltk-widgets-inputs-text-file.adb')
| -rw-r--r-- | body/fltk-widgets-inputs-text-file.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/body/fltk-widgets-inputs-text-file.adb b/body/fltk-widgets-inputs-text-file.adb index c7e4919..18b227f 100644 --- a/body/fltk-widgets-inputs-text-file.adb +++ b/body/fltk-widgets-inputs-text-file.adb @@ -245,7 +245,9 @@ package body FLTK.Widgets.Inputs.Text.File is begin pragma Assert (Result /= 0); exception - when Chk.Assertion_Error => raise Internal_FLTK_Error; + when Chk.Assertion_Error => raise Internal_FLTK_Error with + "Fl_File_Input::value returned unexpected int value of " & + Interfaces.C.int'Image (Result); end Set_Value; |