summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2024-01-21 13:53:16 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2024-01-21 13:53:16 +1300
commit6dc3561cd65db354727d6b38e556d1166165aed2 (patch)
tree9472b2f042a7a1ea42744f0d1617ff57c052633a
parentbeaf98f79d691d0b67cadc1dee7f38a822f3f747 (diff)
Bitmaps now set to ignore the usual error of having a depth of zero
-rw-r--r--src/fltk-images-bitmaps-xbm.adb6
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 =>