diff options
Diffstat (limited to 'src/fltk-images-bitmaps-xbm.adb')
| -rw-r--r-- | src/fltk-images-bitmaps-xbm.adb | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb index 1ab0904..d8059ff 100644 --- a/src/fltk-images-bitmaps-xbm.adb +++ b/src/fltk-images-bitmaps-xbm.adb @@ -42,6 +42,10 @@ package body FLTK.Images.Bitmaps.XBM is + -------------------- + -- Construction -- + -------------------- + package body Forge is function Create @@ -53,13 +57,14 @@ package body FLTK.Images.Bitmaps.XBM is (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 => + -- raise No_Image_Error; null; + -- Since the image depth and line data are both zero here, + -- the fail method will think there's no image even though + -- nothing is wrong. This is a bug in FLTK. + when 2 => raise File_Access_Error; + when 3 => raise Format_Error; + when others => null; end case; end return; end Create; |