summaryrefslogtreecommitdiff
path: root/fltk-widgets-inputs.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-09-07 02:15:57 +1000
committerJed Barber <jjbarber@y7mail.com>2016-09-07 02:15:57 +1000
commite9add081b396a0cbfdf59df9d340afe44d9b9544 (patch)
treead5a4cb0d3e7a5ee228f7e5d954a78dc1c0e6f22 /fltk-widgets-inputs.adb
parentdac7e747e5c61d78deffdccc986d202e9f0d63bb (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.adb3
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;