From 678d77f43136347199e7d4bfddaca4e634e02dc3 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 --- src/fltk_binding/fltk-widgets-groups-windows.ads | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/fltk_binding/fltk-widgets-groups-windows.ads') diff --git a/src/fltk_binding/fltk-widgets-groups-windows.ads b/src/fltk_binding/fltk-widgets-groups-windows.ads index 0999b21..2213563 100644 --- a/src/fltk_binding/fltk-widgets-groups-windows.ads +++ b/src/fltk_binding/fltk-widgets-groups-windows.ads @@ -30,6 +30,13 @@ package FLTK.Widgets.Groups.Windows is Text : in String); + procedure Set_Size_Range + (This : in out Window; + Min_W, Min_H : in Integer; + Max_W, Max_H, Incre_W, Incre_H : in Integer := 0; + Keep_Aspect : in Boolean := False); + + private -- cgit