Improved binding for the FLTK.Images package subtree

1 files changed, 9 insertions, 9 deletions

diff --git a/src/fltk-images-pixmaps-gif.adb b/src/fltk-images-pixmaps-gif.adb
index 579d8b7..546ed3e 100644
--- a/src/fltk-images-pixmaps-gif.adb
+++ b/src/fltk-images-pixmaps-gif.adb
@@ -42,6 +42,10 @@ package body FLTK.Images.Pixmaps.GIF is
 
 
 
+    --------------------
+    --  Construction  --
+    --------------------
+
     package body Forge is
 
         function Create
@@ -50,16 +54,12 @@ package body FLTK.Images.Pixmaps.GIF is
         begin
             return This : GIF_Image do
                 This.Void_Ptr := new_fl_gif_image
-                       (Interfaces.C.To_C (Filename));
+                   (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 =>
-                        null;
+                    when 1 => raise No_Image_Error;
+                    when 2 => raise File_Access_Error;
+                    when 3 => raise Format_Error;
+                    when others => null;
                 end case;
             end return;
         end Create;