summaryrefslogtreecommitdiff
path: root/src/fltk-images-rgb-pnm.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-images-rgb-pnm.adb')
-rw-r--r--src/fltk-images-rgb-pnm.adb18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/fltk-images-rgb-pnm.adb b/src/fltk-images-rgb-pnm.adb
index 95247a1..6b0e515 100644
--- a/src/fltk-images-rgb-pnm.adb
+++ b/src/fltk-images-rgb-pnm.adb
@@ -42,6 +42,10 @@ package body FLTK.Images.RGB.PNM is
+ --------------------
+ -- Construction --
+ --------------------
+
package body Forge is
function Create
@@ -50,16 +54,12 @@ package body FLTK.Images.RGB.PNM is
begin
return This : PNM_Image do
This.Void_Ptr := new_fl_pnm_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;