1 files changed, 10 insertions, 0 deletions
diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb
index c7f3023..6bc9a1d 100644
--- a/src/fltk-images-bitmaps-xbm.adb
+++ b/src/fltk-images-bitmaps-xbm.adb
@@ -47,6 +47,16 @@ package body FLTK.Images.Bitmaps.XBM is
         return This : XBM_Image do
             This.Void_Ptr := new_fl_xbm_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;