diff options
Diffstat (limited to 'src/fltk-widgets-valuators-sliders.adb')
-rw-r--r-- | src/fltk-widgets-valuators-sliders.adb | 24 |
1 files changed, 24 insertions, 0 deletions
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 |