From 904cb29183f7753ba5fc103296b24163ebe2fa0b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 22 Jan 2025 21:43:02 +1300
Subject: Improved Alignment values and Button State checking

---
 spec/fltk-widgets-buttons.ads | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'spec/fltk-widgets-buttons.ads')

diff --git a/spec/fltk-widgets-buttons.ads b/spec/fltk-widgets-buttons.ads
index 4c3b633..c5fb917 100644
--- a/spec/fltk-widgets-buttons.ads
+++ b/spec/fltk-widgets-buttons.ads
@@ -40,6 +40,10 @@ package FLTK.Widgets.Buttons is
 
 
 
+    function Is_On
+           (This : in Button)
+        return Boolean;
+
     function Get_State
            (This : in Button)
         return State;
@@ -110,6 +114,7 @@ private
     with Inline;
 
 
+    pragma Inline (Is_On);
     pragma Inline (Get_State);
     pragma Inline (Set_State);
     pragma Inline (Set_Only);
-- 
cgit