summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-valuators-sliders.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-valuators-sliders.ads')
-rw-r--r--src/fltk-widgets-valuators-sliders.ads61
1 files changed, 61 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators-sliders.ads b/src/fltk-widgets-valuators-sliders.ads
new file mode 100644
index 0000000..3760e53
--- /dev/null
+++ b/src/fltk-widgets-valuators-sliders.ads
@@ -0,0 +1,61 @@
+
+
+package FLTK.Widgets.Valuators.Sliders is
+
+
+ type Slider is new Valuator with private;
+
+
+
+
+ function Create
+ (X, Y, W, H : in Integer;
+ Text : in String)
+ return Slider;
+
+
+
+
+ procedure Set_Bounds
+ (This : in out Slider;
+ A, B : in Long_Float);
+
+ function Get_Box
+ (This : in Slider)
+ return Box_Kind;
+
+ procedure Set_Box
+ (This : in out Slider;
+ To : in Box_Kind);
+
+ function Get_Slide_Size
+ (This : in Slider)
+ return Float;
+
+ procedure Set_Slide_Size
+ (This : in out Slider;
+ To : in Float);
+
+
+
+
+ procedure Draw
+ (This : in out Slider);
+
+ function Handle
+ (This : in out Slider;
+ Event : in Event_Kind)
+ return Event_Outcome;
+
+
+private
+
+
+ type Slider is new Valuator with null record;
+
+ overriding procedure Finalize
+ (This : in out Slider);
+
+
+end FLTK.Widgets.Valuators.Sliders;
+