diff options
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; + |