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.adb | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'src/fltk-widgets-valuators-sliders.adb') diff --git a/src/fltk-widgets-valuators-sliders.adb b/src/fltk-widgets-valuators-sliders.adb index 1a8dbce..752a5aa 100644 --- a/src/fltk-widgets-valuators-sliders.adb +++ b/src/fltk-widgets-valuators-sliders.adb @@ -62,6 +62,12 @@ package body FLTK.Widgets.Valuators.Sliders is T : in Interfaces.C.C_float); pragma Import (C, fl_slider_set_slider_size, "fl_slider_set_slider_size"); + function fl_slider_scrollvalue + (S : in System.Address; + P, Z, F, T : in Interfaces.C.int) + return Interfaces.C.int; + pragma Import (C, fl_slider_scrollvalue, "fl_slider_scrollvalue"); + @@ -163,6 +169,24 @@ package body FLTK.Widgets.Valuators.Sliders is end Set_Slide_Size; + 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) + is + Ignore_Me : Interfaces.C.int; + begin + Ignore_Me := fl_slider_scrollvalue + (This.Void_Ptr, + Interfaces.C.int (Pos_First_Line), + Interfaces.C.int (Lines_In_Window), + Interfaces.C.int (First_Line_Num), + Interfaces.C.int (Total_Lines)); + end Set_Scrollvalue; + + procedure Draw -- cgit