summaryrefslogtreecommitdiff
path: root/src/windows-jump.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2018-05-15 16:38:23 +1000
committerJed Barber <jjbarber@y7mail.com>2018-05-15 16:38:23 +1000
commit7ec40156bf80af71ebf3f51129af42a01221f250 (patch)
tree5c5570dc27137848dfb176157c8a6bb898447bea /src/windows-jump.adb
parent468cdc37c83cd51eb1b0656bc7faeaf2099e0918 (diff)
Updated to bring into line with FLTK binding
Diffstat (limited to 'src/windows-jump.adb')
-rw-r--r--src/windows-jump.adb3
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;