diff options
Diffstat (limited to 'src/fltk_binding/fltk-widgets-groups.adb')
-rw-r--r-- | src/fltk_binding/fltk-widgets-groups.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups.adb b/src/fltk_binding/fltk-widgets-groups.adb index 32753ea..3ffd1e3 100644 --- a/src/fltk_binding/fltk-widgets-groups.adb +++ b/src/fltk_binding/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; |