Forgot to add exceptions to derivative Image constructors

1 files changed, 10 insertions, 0 deletions

diff --git a/src/fltk-images-rgb-png.adb b/src/fltk-images-rgb-png.adb
index 9606e74..d50de04 100644
--- a/src/fltk-images-rgb-png.adb
+++ b/src/fltk-images-rgb-png.adb
@@ -47,6 +47,16 @@ package body FLTK.Images.RGB.PNG is
         return This : PNG_Image do
             This.Void_Ptr := new_fl_png_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;