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-windows.adb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'fltk-widgets-groups-windows.adb') diff --git a/fltk-widgets-groups-windows.adb b/fltk-widgets-groups-windows.adb index 4ecda66..a0262e1 100644 --- a/fltk-widgets-groups-windows.adb +++ b/fltk-widgets-groups-windows.adb @@ -36,6 +36,11 @@ package body FLTK.Widgets.Groups.Windows is T : in Interfaces.C.char_array); pragma Import (C, fl_window_set_label, "fl_window_set_label"); + procedure fl_window_size_range + (W : in System.Address; + LW, LH, HW, HH, DW, DH, A : in Interfaces.C.int); + pragma Import (C, fl_window_size_range, "fl_window_size_range"); + @@ -119,5 +124,25 @@ package body FLTK.Widgets.Groups.Windows is end Set_Label; + + + 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) is + begin + fl_window_size_range + (This.Void_Ptr, + Interfaces.C.int (Min_W), + Interfaces.C.int (Min_H), + Interfaces.C.int (Max_W), + Interfaces.C.int (Max_H), + Interfaces.C.int (Incre_W), + Interfaces.C.int (Incre_H), + Boolean'Pos (Keep_Aspect)); + end Set_Size_Range; + + end FLTK.Widgets.Groups.Windows; -- cgit