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.adb | 1 + 1 file changed, 1 insertion(+) (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 31b73fa..94ee03c 100644 --- a/src/fltk-widgets-groups-windows-single.adb +++ b/src/fltk-widgets-groups-windows-single.adb @@ -117,6 +117,7 @@ package body FLTK.Widgets.Groups.Windows.Single is (This.Void_Ptr, Widget_Convert.To_Address (This'Unchecked_Access)); single_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address); + single_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address); end return; end Create; -- cgit