Added show(int argc, char **argv) methods for Window classes

1 files changed, 18 insertions, 1 deletions

diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads
index a419fbb..97d79d9 100644
--- a/src/fltk-widgets-groups-windows.ads
+++ b/src/fltk-widgets-groups-windows.ads
@@ -10,7 +10,7 @@ with
 
 private with
 
-    Interfaces.C;
+    Interfaces.C.Strings;
 
 
 package FLTK.Widgets.Groups.Windows is
@@ -48,6 +48,9 @@ package FLTK.Widgets.Groups.Windows is
     procedure Show
            (This : in out Window);
 
+    procedure Show_With_Args
+           (This : in out Window);
+
     procedure Hide
            (This : in out Window);
 
@@ -232,7 +235,21 @@ private
     with Inline;
 
 
+    --  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);
+
+    pragma Convention (C, Show_With_Args_Func);
+
+    procedure Dispatch_Show_With_Args
+           (Func : in Show_With_Args_Func;
+            CObj : in Storage.Integer_Address);
+
+
     pragma Inline (Show);
+    pragma Inline (Show_With_Args);
     pragma Inline (Hide);
     pragma Inline (Is_Shown);
     pragma Inline (Wait_For_Expose);