4 files changed, 4 insertions, 0 deletions
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;