diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-16 17:24:06 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-16 17:24:06 +1100 |
commit | dee3db5a58ce1bc3f3200d7ecbe76d2485e4583b (patch) | |
tree | 5394210985871e4bd362c49358baac94721a5669 /src/fltk-widgets-valuators-sliders-value-horizontal.ads | |
parent | 1d1f1f79c4091aaf673371ee8cca8688eab8ab70 (diff) |
Added FLTK.Widgets.Valuators.Sliders.Value.Horizontal
Diffstat (limited to 'src/fltk-widgets-valuators-sliders-value-horizontal.ads')
-rw-r--r-- | src/fltk-widgets-valuators-sliders-value-horizontal.ads | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators-sliders-value-horizontal.ads b/src/fltk-widgets-valuators-sliders-value-horizontal.ads new file mode 100644 index 0000000..3b05627 --- /dev/null +++ b/src/fltk-widgets-valuators-sliders-value-horizontal.ads @@ -0,0 +1,42 @@ + + +package FLTK.Widgets.Valuators.Sliders.Value.Horizontal is + + + type Hor_Value_Slider is new Value_Slider with private; + + + + + package Forge is + + function Create + (X, Y, W, H : in Integer; + Text : in String) + return Hor_Value_Slider; + + end Forge; + + + + + procedure Draw + (This : in out Hor_Value_Slider); + + function Handle + (This : in out Hor_Value_Slider; + Event : in Event_Kind) + return Event_Outcome; + + +private + + + type Hor_Value_Slider is new Value_Slider with null record; + + overriding procedure Finalize + (This : in out Hor_Value_Slider); + + +end FLTK.Widgets.Valuators.Sliders.Value.Horizontal; + |