From 45c820a4879110d934ce9ca93076eff4aa2d4979 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 29 Jul 2017 00:56:22 +1000
Subject: Fixed bug in Window widget two parameter Create functions

---
 src/fltk-widgets-groups-windows.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/fltk-widgets-groups-windows.adb')

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