diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 10:57:19 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 10:57:19 +1000 |
commit | 2d00fe01eb5fb245d0ca4be020e5e08895631805 (patch) | |
tree | c4e615ac361fd0eabba5648adce0d76fa37bca9f /src/fltk-images-rgb-jpeg.adb | |
parent | 1e761c7b4491377fe9c91a37c438856178cc4f8e (diff) |
Forgot to add exceptions to derivative Image constructors
Diffstat (limited to 'src/fltk-images-rgb-jpeg.adb')
-rw-r--r-- | src/fltk-images-rgb-jpeg.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/fltk-images-rgb-jpeg.adb b/src/fltk-images-rgb-jpeg.adb index 47ea386..a74604e 100644 --- a/src/fltk-images-rgb-jpeg.adb +++ b/src/fltk-images-rgb-jpeg.adb @@ -47,6 +47,16 @@ package body FLTK.Images.RGB.JPEG is return This : JPEG_Image do This.Void_Ptr := new_fl_jpeg_image (Interfaces.C.To_C (Filename)); + case fl_image_fail (This.Void_Ptr) is + when 1 => + raise No_Image_Error; + when 2 => + raise File_Access_Error; + when 3 => + raise Format_Error; + when others => + null; + end case; end return; end Create; |