From f18ea4474bb4905a00e0b39e7205c177ee994196 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 20 Feb 2024 18:04:23 +1300 Subject: Improved binding for the FLTK.Images package subtree --- src/fltk-images-bitmaps-xbm.adb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/fltk-images-bitmaps-xbm.adb') diff --git a/src/fltk-images-bitmaps-xbm.adb b/src/fltk-images-bitmaps-xbm.adb index 3732801..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 @@ -58,12 +62,9 @@ package body FLTK.Images.Bitmaps.XBM is -- 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; + when 2 => raise File_Access_Error; + when 3 => raise Format_Error; + when others => null; end case; end return; end Create; -- cgit