1 files changed, 0 insertions, 13 deletions
diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads
index 97d79d9..d00d3d7 100644
--- a/src/fltk-widgets-groups-windows.ads
+++ b/src/fltk-widgets-groups-windows.ads
@@ -235,19 +235,6 @@ 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);