summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/fltk-widgets-groups-windows-double.adb1
-rw-r--r--src/fltk-widgets-groups-windows-single-menu.adb1
-rw-r--r--src/fltk-widgets-groups-windows-single.adb1
-rw-r--r--src/fltk-widgets-groups-windows.adb1
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;