From d4520de203a8fd8816836b7f8507027cf0675f91 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 21 Sep 2016 23:34:15 +1000 Subject: More progress on the little utility window layouts --- fltk-widgets-groups.adb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'fltk-widgets-groups.adb') diff --git a/fltk-widgets-groups.adb b/fltk-widgets-groups.adb index 32753ea..3ffd1e3 100644 --- a/fltk-widgets-groups.adb +++ b/fltk-widgets-groups.adb @@ -52,6 +52,10 @@ package body FLTK.Widgets.Groups is return System.Address; pragma Import (C, fl_group_child, "fl_group_child"); + procedure fl_group_resizable + (G, W : in System.Address); + pragma Import (C, fl_group_resizable, "fl_group_resizable"); + @@ -185,5 +189,15 @@ package body FLTK.Widgets.Groups is end Remove; + + + procedure Set_Resizable + (This : in out Group; + Item : in Widget'Class) is + begin + fl_group_resizable (This.Void_Ptr, Item.Void_Ptr); + end Set_Resizable; + + end FLTK.Widgets.Groups; -- cgit