From 74cb50a7f7e14cec7195d30e50b76e17969c9e62 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 13 Jan 2025 12:29:26 +1300
Subject: Help_Dialog now has Show_With_Args

---
 src/fltk-widgets-groups-windows-single.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/fltk-widgets-groups-windows-single.adb')

diff --git a/src/fltk-widgets-groups-windows-single.adb b/src/fltk-widgets-groups-windows-single.adb
index 6e7c7c1..a74b122 100644
--- a/src/fltk-widgets-groups-windows-single.adb
+++ b/src/fltk-widgets-groups-windows-single.adb
@@ -6,6 +6,7 @@
 
 with
 
+    FLTK.Show_Argv,
     Interfaces.C;
 
 
@@ -178,7 +179,7 @@ package body FLTK.Widgets.Groups.Windows.Single is
     procedure Show_With_Args
            (This : in out Single_Window) is
     begin
-        Dispatch_Show_With_Args (fl_single_window_show2'Access, This.Void_Ptr);
+        FLTK.Show_Argv.Dispatch (fl_single_window_show2'Access, This.Void_Ptr);
     end Show_With_Args;
 
 
-- 
cgit