From ca9cca53a19145216cb0e00462db239e1194696d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 29 Apr 2018 00:39:36 +1000 Subject: FLTK.Event done, a whole bunch more polishing --- src/fltk-widgets-groups-spinners.ads | 42 ++++++++++++++++++++++++++++++++++-- 1 file changed, 40 insertions(+), 2 deletions(-) (limited to 'src/fltk-widgets-groups-spinners.ads') diff --git a/src/fltk-widgets-groups-spinners.ads b/src/fltk-widgets-groups-spinners.ads index c7e3f23..b85a3a4 100644 --- a/src/fltk-widgets-groups-spinners.ads +++ b/src/fltk-widgets-groups-spinners.ads @@ -5,6 +5,9 @@ package FLTK.Widgets.Groups.Spinners is type Spinner is new Group with private; + type Spinner_Reference (Data : not null access Spinner'Class) is limited null record + with Implicit_Dereference => Data; + type Spinner_Kind is (Float_Spin, Int_Spin); @@ -30,11 +33,11 @@ package FLTK.Widgets.Groups.Spinners is (This : in out Spinner; To : in Color); - function Get_Select_Color + function Get_Selection_Color (This : in Spinner) return Color; - procedure Set_Select_Color + procedure Set_Selection_Color (This : in out Spinner; To : in Color); @@ -81,6 +84,10 @@ package FLTK.Widgets.Groups.Spinners is (This : in out Spinner; To : in Long_Float); + procedure Get_Range + (This : in Spinner; + Min, Max : out Long_Float); + procedure Set_Range (This : in out Spinner; Min, Max : in Long_Float); @@ -130,5 +137,36 @@ private (This : in out Spinner); + + + pragma Inline (Get_Background_Color); + pragma Inline (Set_Background_Color); + pragma Inline (Get_Selection_Color); + pragma Inline (Set_Selection_Color); + pragma Inline (Get_Text_Color); + pragma Inline (Set_Text_Color); + pragma Inline (Get_Text_Font); + pragma Inline (Set_Text_Font); + pragma Inline (Get_Text_Size); + pragma Inline (Set_Text_Size); + + + pragma Inline (Get_Minimum); + pragma Inline (Set_Minimum); + pragma Inline (Get_Maximum); + pragma Inline (Set_Maximum); + pragma Inline (Set_Range); + pragma Inline (Get_Step); + pragma Inline (Set_Step); + pragma Inline (Get_Type); + pragma Inline (Set_Type); + pragma Inline (Get_Value); + pragma Inline (Set_Value); + + + pragma Inline (Draw); + pragma Inline (Handle); + + end FLTK.Widgets.Groups.Spinners; -- cgit