diff options
Diffstat (limited to 'src/fltk_binding/fltk-widgets-buttons.ads')
| -rw-r--r-- | src/fltk_binding/fltk-widgets-buttons.ads | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/fltk_binding/fltk-widgets-buttons.ads b/src/fltk_binding/fltk-widgets-buttons.ads index 42f6e8b..a31ed79 100644 --- a/src/fltk_binding/fltk-widgets-buttons.ads +++ b/src/fltk_binding/fltk-widgets-buttons.ads @@ -4,7 +4,6 @@ package FLTK.Widgets.Buttons is type Button is new Widget with private; - type Button_Access is access all Button; type State is (On, Off); @@ -12,22 +11,22 @@ package FLTK.Widgets.Buttons is function Create (X, Y, W, H : in Integer; - Label : in String) + Text : in String) return Button; function Get_State - (B : in Button'Class) + (This : in Button) return State; procedure Set_State - (B : in out Button'Class; - S : in State); + (This : in out Button; + St : in State); procedure Set_Only - (B : in out Button'Class); + (This : in out Button); private |