1 files changed, 35 insertions, 0 deletions
diff --git a/src/fltk-show_argv.ads b/src/fltk-show_argv.ads
new file mode 100644
index 0000000..231b875
--- /dev/null
+++ b/src/fltk-show_argv.ads
@@ -0,0 +1,35 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+with
+
+    Interfaces.C;
+
+
+private package FLTK.Show_Argv is
+
+
+    --  Used for implementing show(argc,argv)
+
+    type Show_With_Args_Func is access procedure
+           (CObj : in Storage.Integer_Address;
+            Argc : in Interfaces.C.int;
+            Argv : in Storage.Integer_Address);
+
+    procedure Dispatch
+           (Func : in Show_With_Args_Func;
+            CObj : in Storage.Integer_Address);
+
+
+private
+
+
+    pragma Convention (C, Show_With_Args_Func);
+
+
+end FLTK.Show_Argv;
+
+