diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-20 18:04:23 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-20 18:04:23 +1300 |
commit | f18ea4474bb4905a00e0b39e7205c177ee994196 (patch) | |
tree | 67a06833192e0f47695ab872badb88fb0970280a /src/fltk-images-rgb-png.ads | |
parent | c47bea48a24e51e178354f3e3bb53d8b9964b769 (diff) |
Improved binding for the FLTK.Images package subtree
Diffstat (limited to 'src/fltk-images-rgb-png.ads')
-rw-r--r-- | src/fltk-images-rgb-png.ads | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/fltk-images-rgb-png.ads b/src/fltk-images-rgb-png.ads index 760f84d..a4c270a 100644 --- a/src/fltk-images-rgb-png.ads +++ b/src/fltk-images-rgb-png.ads @@ -3,6 +3,10 @@ package FLTK.Images.RGB.PNG is + ------------- + -- Types -- + ------------- + type PNG_Image is new RGB_Image with private; type PNG_Image_Reference (Data : not null access PNG_Image'Class) is limited null record @@ -11,12 +15,21 @@ package FLTK.Images.RGB.PNG is + -------------------- + -- Construction -- + -------------------- + package Forge is function Create (Filename : in String) return PNG_Image; + function Create + (Name : in String := ""; + Data : in Color_Component_Array) + return PNG_Image; + end Forge; |