diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-01-21 13:53:16 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-01-21 13:53:16 +1300 |
| commit | 6dc3561cd65db354727d6b38e556d1166165aed2 (patch) | |
| tree | 9472b2f042a7a1ea42744f0d1617ff57c052633a /src | |
| parent | beaf98f79d691d0b67cadc1dee7f38a822f3f747 (diff) | |
Bitmaps now set to ignore the usual error of having a depth of zero
Diffstat (limited to 'src')
| -rw-r--r-- | src/fltk-images-bitmaps-xbm.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb index 1ab0904..3732801 100644 --- a/src/fltk-images-bitmaps-xbm.adb +++ b/src/fltk-images-bitmaps-xbm.adb @@ -53,7 +53,11 @@ 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; + -- 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 => |