diff options
Diffstat (limited to 'src/fltk-widgets-groups-spinners.ads')
| -rw-r--r-- | src/fltk-widgets-groups-spinners.ads | 41 |
1 files changed, 30 insertions, 11 deletions
diff --git a/src/fltk-widgets-groups-spinners.ads b/src/fltk-widgets-groups-spinners.ads index 5c6233e..39ed4b3 100644 --- a/src/fltk-widgets-groups-spinners.ads +++ b/src/fltk-widgets-groups-spinners.ads @@ -4,6 +4,11 @@ -- Released into the public domain +private with + + Interfaces.C.Strings; + + package FLTK.Widgets.Groups.Spinners is @@ -104,14 +109,6 @@ package FLTK.Widgets.Groups.Spinners is (This : in out Spinner; To : in Long_Float); - function Get_Type - (This : in Spinner) - return Spinner_Kind; - - procedure Set_Type - (This : in out Spinner; - To : in Spinner_Kind); - function Get_Value (This : in Spinner) return Long_Float; @@ -123,6 +120,25 @@ package FLTK.Widgets.Groups.Spinners is + function Get_Format + (This : in Spinner) + return String; + + procedure Set_Format + (This : in out Spinner; + To : in String); + + function Get_Type + (This : in Spinner) + return Spinner_Kind; + + procedure Set_Type + (This : in out Spinner; + To : in Spinner_Kind); + + + + procedure Resize (This : in out Spinner; X, Y, W, H : in Integer); @@ -139,7 +155,9 @@ package FLTK.Widgets.Groups.Spinners is private - type Spinner is new Group with null record; + type Spinner is new Group with record + Format_Str : Interfaces.C.Strings.chars_ptr; + end record; overriding procedure Initialize (This : in out Spinner); @@ -176,11 +194,12 @@ private 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 (Get_Type); + pragma Inline (Set_Type); + pragma Inline (Resize); pragma Inline (Handle); |