Improved binding for the FLTK.Images package subtree

1 files changed, 7 insertions, 6 deletions

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;