From 45c820a4879110d934ce9ca93076eff4aa2d4979 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 29 Jul 2017 00:56:22 +1000 Subject: Fixed bug in Window widget two parameter Create functions --- src/fltk-widgets-groups-windows-single-menu.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'src/fltk-widgets-groups-windows-single-menu.adb') diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb index 9c4d1f4..18902a6 100644 --- a/src/fltk-widgets-groups-windows-single-menu.adb +++ b/src/fltk-widgets-groups-windows-single-menu.adb @@ -138,6 +138,7 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is (This.Void_Ptr, Widget_Convert.To_Address (This'Unchecked_Access)); menu_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address); + menu_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address); end return; end Create; -- cgit