1 files changed, 38 insertions, 0 deletions
diff --git a/body/fltk-pixmap_marshal.ads b/body/fltk-pixmap_marshal.ads
new file mode 100644
index 0000000..c74e0eb
--- /dev/null
+++ b/body/fltk-pixmap_marshal.ads
@@ -0,0 +1,38 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+limited with
+
+    FLTK.Images.Pixmaps;
+
+with
+
+    Interfaces.C.Strings;
+
+
+private package FLTK.Pixmap_Marshal is
+
+
+    type chars_ptr_array_access is access all Interfaces.C.Strings.chars_ptr_array;
+
+
+    function To_Coltype
+           (Value : in FLTK.Images.Pixmaps.Color_Kind)
+        return Character;
+
+    function Marshal_Data
+           (Values : in FLTK.Images.Pixmaps.Header;
+            Colors : in FLTK.Images.Pixmaps.Color_Definition_Array;
+            Pixels : in FLTK.Images.Pixmaps.Pixmap_Data)
+        return chars_ptr_array_access;
+
+    procedure Free_Recursive
+           (This : in out chars_ptr_array_access);
+
+
+end FLTK.Pixmap_Marshal;
+
+