diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-03 14:10:57 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-03 14:10:57 +1100 |
commit | 4d117b2480998e2593ad7f5d47fc0c33932a3bfc (patch) | |
tree | 733f4440e559a05f9588d2ec27c23b2616d614ec /src/fltk-widgets-valuators.ads | |
parent | 624318b4c5bd9ce18f232a1b180fd68c59493628 (diff) |
Mostly completed FLTK.Widgets.Valuators
Diffstat (limited to 'src/fltk-widgets-valuators.ads')
-rw-r--r-- | src/fltk-widgets-valuators.ads | 93 |
1 files changed, 93 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators.ads b/src/fltk-widgets-valuators.ads new file mode 100644 index 0000000..ede5281 --- /dev/null +++ b/src/fltk-widgets-valuators.ads @@ -0,0 +1,93 @@ + + +package FLTK.Widgets.Valuators is + + + type Valuator is new Widget with private; + + + + + function Create + (X, Y, W, H : in Integer; + Text : in String) + return Valuator; + + + + + function Clamp + (This : in Valuator; + Input : in Long_Float) + return Long_Float; + + function Round + (This : in Valuator; + Input : in Long_Float) + return Long_Float; + + function Increment + (This : in Valuator; + Input : in Long_Float; + Step : in Integer) + return Long_Float; + + + + + function Get_Minimum + (This : in Valuator) + return Long_Float; + + procedure Set_Minimum + (This : in out Valuator; + To : in Long_Float); + + function Get_Maximum + (This : in Valuator) + return Long_Float; + + procedure Set_Maximum + (This : in out Valuator; + To : in Long_Float); + + function Get_Value + (This : in Valuator) + return Long_Float; + + procedure Set_Value + (This : in out Valuator; + To : in Long_Float); + + procedure Set_Bounds + (This : in out Valuator; + Min, Max : in Long_Float); + + procedure Set_Precision + (This : in out Valuator; + To : in Integer); + + procedure Set_Range + (This : in out Valuator; + Min, Max : in Long_Float); + + + + + function Handle + (This : in out Valuator; + Event : in Event_Kind) + return Event_Outcome; + + +private + + + type Valuator is new Widget with null record; + + overriding procedure Finalize + (This : in out Valuator); + + +end FLTK.Widgets.Valuators; + |