diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-22 21:43:02 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-22 21:43:02 +1300 |
commit | 904cb29183f7753ba5fc103296b24163ebe2fa0b (patch) | |
tree | cd469ba398582f03d1f3057c65fc2f45982bb525 /body/fltk-widgets-buttons.adb | |
parent | d6458841c9134a3b6d8ca260766fca64a72740aa (diff) |
Improved Alignment values and Button State checking
Diffstat (limited to 'body/fltk-widgets-buttons.adb')
-rw-r--r-- | body/fltk-widgets-buttons.adb | 8 |
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 |