1 files changed, 2 insertions, 1 deletions
diff --git a/src/windows-jump.adb b/src/windows-jump.adb
index 898ce04..f19315e 100644
--- a/src/windows-jump.adb
+++ b/src/windows-jump.adb
@@ -3,6 +3,7 @@
 package body Windows.Jump is
 
 
+    package W renames FLTK.Widgets.Groups.Windows;
     package WD renames FLTK.Widgets.Groups.Windows.Double;
     package BU renames FLTK.Widgets.Buttons;
     package EN renames FLTK.Widgets.Buttons.Enter;
@@ -67,7 +68,7 @@ package body Windows.Jump is
             This.Set_Icon (Logo);
 
             This.Set_Callback (Hide_CB'Access);
-            This.Set_Modal;
+            This.Set_Modal_State (W.Modal);
         end return;
     end Create;