diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-09-07 02:15:57 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-09-07 02:15:57 +1000 |
| commit | e9add081b396a0cbfdf59df9d340afe44d9b9544 (patch) | |
| tree | ad5a4cb0d3e7a5ee228f7e5d954a78dc1c0e6f22 /fltk-widgets-inputs.adb | |
| parent | dac7e747e5c61d78deffdccc986d202e9f0d63bb (diff) | |
Now using widget user data to refer back to Ada side of things, will enable easy implementation of callbacks
Diffstat (limited to 'fltk-widgets-inputs.adb')
| -rw-r--r-- | fltk-widgets-inputs.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/fltk-widgets-inputs.adb b/fltk-widgets-inputs.adb index 37d99e7..17ab621 100644 --- a/fltk-widgets-inputs.adb +++ b/fltk-widgets-inputs.adb @@ -47,6 +47,9 @@ package body FLTK.Widgets.Inputs is Interfaces.C.int (W), Interfaces.C.int (H), Interfaces.C.To_C (Text)); + fl_widget_set_user_data + (This.Void_Ptr, + Widget_Convert.To_Address (This'Unchecked_Access)); end return; end Create; |