From 7ec40156bf80af71ebf3f51129af42a01221f250 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 15 May 2018 16:38:23 +1000
Subject: Updated to bring into line with FLTK binding

---
 src/windows-about.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/windows-about.adb')

diff --git a/src/windows-about.adb b/src/windows-about.adb
index 13b8337..8248065 100644
--- a/src/windows-about.adb
+++ b/src/windows-about.adb
@@ -3,6 +3,7 @@
 package body Windows.About is
 
 
+    package W renames FLTK.Widgets.Groups.Windows;
     package WD renames FLTK.Widgets.Groups.Windows.Double;
     package BX renames FLTK.Widgets.Boxes;
     package EN renames FLTK.Widgets.Buttons.Enter;
@@ -63,7 +64,7 @@ package body Windows.About is
             This.Picture.Set_Image (Logo);
 
             This.Set_Callback (Hide_CB'Access);
-            This.Set_Modal;
+            This.Set_Modal_State (W.Modal);
         end return;
     end Create;
 
-- 
cgit