diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-28 21:43:17 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-28 21:43:17 +1300 |
| commit | dee76d5884c6f079ea3a2387d07289534a51a0c1 (patch) | |
| tree | 528b5d06ce81d48560b5c9e6836855d392e95ab0 /body/fltk-images-pixmaps-gif.adb | |
| parent | f5f624fd78421dbeb15fdda489caed6f210c730f (diff) | |
Diffstat (limited to 'body/fltk-images-pixmaps-gif.adb')
| -rw-r--r-- | body/fltk-images-pixmaps-gif.adb | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/body/fltk-images-pixmaps-gif.adb b/body/fltk-images-pixmaps-gif.adb index 535debf..95ce3d9 100644 --- a/body/fltk-images-pixmaps-gif.adb +++ b/body/fltk-images-pixmaps-gif.adb @@ -12,6 +12,10 @@ with package body FLTK.Images.Pixmaps.GIF is + ------------------------ + -- Functions From C -- + ------------------------ + function new_fl_gif_image (F : in Interfaces.C.char_array) return Storage.Integer_Address; @@ -26,6 +30,10 @@ package body FLTK.Images.Pixmaps.GIF is + ------------------- + -- Destructors -- + ------------------- + overriding procedure Finalize (This : in out GIF_Image) is begin @@ -39,7 +47,7 @@ package body FLTK.Images.Pixmaps.GIF is -------------------- - -- Construction -- + -- Constructors -- -------------------- package body Forge is @@ -51,12 +59,7 @@ package body FLTK.Images.Pixmaps.GIF is return This : GIF_Image do This.Void_Ptr := new_fl_gif_image (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; - end case; + Raise_Fail_Errors (This); end return; end Create; @@ -65,3 +68,4 @@ package body FLTK.Images.Pixmaps.GIF is end FLTK.Images.Pixmaps.GIF; + |