diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-29 00:56:22 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-29 00:56:22 +1000 |
| commit | 45c820a4879110d934ce9ca93076eff4aa2d4979 (patch) | |
| tree | 46bf584642291751fdd3a15a392643e7103f2b8c | |
| parent | 2d00fe01eb5fb245d0ca4be020e5e08895631805 (diff) | |
Fixed bug in Window widget two parameter Create functions
| -rw-r--r-- | src/fltk-widgets-groups-windows-double.adb | 1 | ||||
| -rw-r--r-- | src/fltk-widgets-groups-windows-single-menu.adb | 1 | ||||
| -rw-r--r-- | src/fltk-widgets-groups-windows-single.adb | 1 | ||||
| -rw-r--r-- | src/fltk-widgets-groups-windows.adb | 1 |
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; |