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-double.adb | 1 + src/fltk-widgets-groups-windows-single-menu.adb | 1 + src/fltk-widgets-groups-windows-single.adb | 1 + src/fltk-widgets-groups-windows.adb | 1 + 4 files changed, 4 insertions(+) diff --git a/src/fltk-widgets-groups-windows-double.adb b/src/fltk-widgets-groups-windows-double.adb index 3462582..dd8e2d2 100644 --- a/src/fltk-widgets-groups-windows-double.adb +++ b/src/fltk-widgets-groups-windows-double.adb @@ -121,6 +121,7 @@ package body FLTK.Widgets.Groups.Windows.Double is (This.Void_Ptr, Widget_Convert.To_Address (This'Unchecked_Access)); double_window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address); + double_window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address); end return; end Create; 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; 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; diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb index 7ada504..893d53a 100644 --- a/src/fltk-widgets-groups-windows.adb +++ b/src/fltk-widgets-groups-windows.adb @@ -190,6 +190,7 @@ package body FLTK.Widgets.Groups.Windows is (This.Void_Ptr, Widget_Convert.To_Address (This'Unchecked_Access)); window_set_draw_hook (This.Void_Ptr, Draw_Hook'Address); + window_set_handle_hook (This.Void_Ptr, Handle_Hook'Address); end return; end Create; -- cgit