From 09d9f2f6fc83af3bdc76717941eb13b77b2b1613 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 20 Mar 2018 01:41:49 +1100 Subject: Moved several Widgets from the Partially list to the Done list --- src/fltk-widgets-valuators-sliders.ads | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/fltk-widgets-valuators-sliders.ads') diff --git a/src/fltk-widgets-valuators-sliders.ads b/src/fltk-widgets-valuators-sliders.ads index 48be83d..fda69d2 100644 --- a/src/fltk-widgets-valuators-sliders.ads +++ b/src/fltk-widgets-valuators-sliders.ads @@ -40,6 +40,13 @@ package FLTK.Widgets.Valuators.Sliders is (This : in out Slider; To : in Float); + procedure Set_Scrollvalue + (This : in out Slider; + Pos_First_Line : in Natural; + Lines_In_Window : in Natural; + First_Line_Num : in Natural; + Total_Lines : in Natural); + -- cgit