From e9add081b396a0cbfdf59df9d340afe44d9b9544 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 7 Sep 2016 02:15:57 +1000
Subject: Now using widget user data to refer back to Ada side of things, will
 enable easy implementation of callbacks

---
 fltk-widgets-buttons-repeat.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'fltk-widgets-buttons-repeat.adb')

diff --git a/fltk-widgets-buttons-repeat.adb b/fltk-widgets-buttons-repeat.adb
index 2f2c195..8e81a8e 100644
--- a/fltk-widgets-buttons-repeat.adb
+++ b/fltk-widgets-buttons-repeat.adb
@@ -47,6 +47,9 @@ package body FLTK.Widgets.Buttons.Repeat 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;
 
-- 
cgit