From 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 20 Jan 2025 00:42:19 +1300
Subject: Filled holes in Fl_Text_Editor binding and make
 key/modifier/shortcut/flag representations more in line with C++

---
 src/fltk-widgets-buttons.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-widgets-buttons.adb')

diff --git a/src/fltk-widgets-buttons.adb b/src/fltk-widgets-buttons.adb
index 0547ffa..11a57de 100644
--- a/src/fltk-widgets-buttons.adb
+++ b/src/fltk-widgets-buttons.adb
@@ -271,7 +271,7 @@ package body FLTK.Widgets.Buttons is
            (This : in Button)
         return Key_Combo is
     begin
-        return To_Ada (Interfaces.C.unsigned_long (fl_button_get_shortcut (This.Void_Ptr)));
+        return To_Ada (fl_button_get_shortcut (This.Void_Ptr));
     end Get_Shortcut;
 
 
-- 
cgit