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