diff options
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 |