summaryrefslogtreecommitdiff
path: root/body/fltk-widgets-buttons.adb
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-01-22 21:43:02 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-01-22 21:43:02 +1300
commit904cb29183f7753ba5fc103296b24163ebe2fa0b (patch)
treecd469ba398582f03d1f3057c65fc2f45982bb525 /body/fltk-widgets-buttons.adb
parentd6458841c9134a3b6d8ca260766fca64a72740aa (diff)
Improved Alignment values and Button State checking
Diffstat (limited to 'body/fltk-widgets-buttons.adb')
-rw-r--r--body/fltk-widgets-buttons.adb8
1 files changed, 8 insertions, 0 deletions
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