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

---
 body/fltk-widgets-buttons.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/body/fltk-widgets-buttons.adb b/body/fltk-widgets-buttons.adb
index 11a57de..1e7ef60 100644
--- a/body/fltk-widgets-buttons.adb
+++ b/body/fltk-widgets-buttons.adb
@@ -226,6 +226,14 @@ package body FLTK.Widgets.Buttons is
     --  API Subprograms  --
     -----------------------
 
+    function Is_On
+           (This : in Button)
+        return Boolean is
+    begin
+        return This.Get_State = On;
+    end Is_On;
+
+
     function Get_State
            (This : in Button)
         return State is
-- 
cgit