diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-20 01:41:49 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-20 01:41:49 +1100 |
commit | 09d9f2f6fc83af3bdc76717941eb13b77b2b1613 (patch) | |
tree | 82b57130cd381b9a0b261eabdc4239c09dcc17f2 /src/fltk-widgets-valuators-sliders.adb | |
parent | c1dcb4c61e79b1ddd98c0ef84f2d36be7f7fd736 (diff) |
Moved several Widgets from the Partially list to the Done list
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 |