From b72f41264d96f6cd9333badad82f978ecdc48fc2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 15 Jul 2016 22:20:30 +1000 Subject: Groups and Widgets should now keep track of themselves properly, also all named access types removed --- src/fltk_binding/fltk-widgets-buttons.ads | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/fltk_binding/fltk-widgets-buttons.ads') 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 -- cgit