diff options
Diffstat (limited to 'src/fltk-widgets-groups-scrolls.adb')
| -rw-r--r-- | src/fltk-widgets-groups-scrolls.adb | 56 |
1 files changed, 30 insertions, 26 deletions
diff --git a/src/fltk-widgets-groups-scrolls.adb b/src/fltk-widgets-groups-scrolls.adb index 09aae1e..376a2ac 100644 --- a/src/fltk-widgets-groups-scrolls.adb +++ b/src/fltk-widgets-groups-scrolls.adb @@ -1,8 +1,13 @@ -with Interfaces.C; -with System; -use type System.Address; +with + + Interfaces.C, + System; + +use type + + System.Address; package body FLTK.Widgets.Groups.Scrolls is @@ -17,6 +22,8 @@ package body FLTK.Widgets.Groups.Scrolls is pragma Import (C, scroll_set_handle_hook, "scroll_set_handle_hook"); + + function new_fl_scroll (X, Y, W, H : in Interfaces.C.int; Text : in Interfaces.C.char_array) @@ -28,11 +35,21 @@ package body FLTK.Widgets.Groups.Scrolls is pragma Import (C, free_fl_scroll, "free_fl_scroll"); + + procedure fl_scroll_to (S : in System.Address; X, Y : in Interfaces.C.int); pragma Import (C, fl_scroll_to, "fl_scroll_to"); + procedure fl_scroll_set_type + (S : in System.Address; + T : in Interfaces.C.int); + pragma Import (C, fl_scroll_set_type, "fl_scroll_set_type"); + + + + function fl_scroll_get_size (S : in System.Address) return Interfaces.C.int; @@ -53,10 +70,8 @@ package body FLTK.Widgets.Groups.Scrolls is return Interfaces.C.int; pragma Import (C, fl_scroll_yposition, "fl_scroll_yposition"); - procedure fl_scroll_set_type - (S : in System.Address; - T : in Interfaces.C.int); - pragma Import (C, fl_scroll_set_type, "fl_scroll_set_type"); + + procedure fl_scroll_draw (S : in System.Address); @@ -111,7 +126,6 @@ package body FLTK.Widgets.Groups.Scrolls is - procedure Scroll_To (This : in out Scroll; X, Y : in Integer) is @@ -120,6 +134,14 @@ package body FLTK.Widgets.Groups.Scrolls is end Scroll_To; + procedure Set_Type + (This : in out Scroll; + Mode : in Scroll_Kind) is + begin + fl_scroll_set_type (This.Void_Ptr, Scroll_Kind'Pos (Mode)); + end Set_Type; + + function Get_Scrollbar_Size @@ -130,8 +152,6 @@ package body FLTK.Widgets.Groups.Scrolls is end Get_Scrollbar_Size; - - procedure Set_Scrollbar_Size (This : in out Scroll; To : in Integer) is @@ -140,8 +160,6 @@ package body FLTK.Widgets.Groups.Scrolls is end Set_Scrollbar_Size; - - function Get_Scroll_X (This : in Scroll) return Integer is @@ -150,8 +168,6 @@ package body FLTK.Widgets.Groups.Scrolls is end Get_Scroll_X; - - function Get_Scroll_Y (This : in Scroll) return Integer is @@ -162,16 +178,6 @@ package body FLTK.Widgets.Groups.Scrolls is - procedure Set_Type - (This : in out Scroll; - Mode : in Scroll_Kind) is - begin - fl_scroll_set_type (This.Void_Ptr, Scroll_Kind'Pos (Mode)); - end Set_Type; - - - - procedure Draw (This : in out Scroll) is begin @@ -179,8 +185,6 @@ package body FLTK.Widgets.Groups.Scrolls is end Draw; - - function Handle (This : in out Scroll; Event : in Event_Kind) |