diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2018-04-19 21:30:43 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2018-04-19 21:30:43 +1000 |
| commit | ae82edc42a3c93c400775b314b65a8662f181b67 (patch) | |
| tree | 9782c067fefd55ec765e340fe61756a122ffc3cf /src/fltk-widgets-groups-windows-double.adb | |
| parent | 617353265e4dc4e0280b565f2cd9e7749ce52bfd (diff) | |
Completed and polished Window widgets, and fixed some associated oddities
Diffstat (limited to 'src/fltk-widgets-groups-windows-double.adb')
| -rw-r--r-- | src/fltk-widgets-groups-windows-double.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/fltk-widgets-groups-windows-double.adb b/src/fltk-widgets-groups-windows-double.adb index 9e87d56..515e149 100644 --- a/src/fltk-widgets-groups-windows-double.adb +++ b/src/fltk-widgets-groups-windows-double.adb @@ -34,7 +34,8 @@ package body FLTK.Widgets.Groups.Windows.Double is pragma Inline (new_fl_double_window); function new_fl_double_window2 - (X, Y : in Interfaces.C.int) + (X, Y : in Interfaces.C.int; + Text : in Interfaces.C.char_array) return System.Address; pragma Import (C, new_fl_double_window2, "new_fl_double_window2"); pragma Inline (new_fl_double_window2); @@ -121,13 +122,15 @@ package body FLTK.Widgets.Groups.Windows.Double is function Create - (W, H : in Integer) + (W, H : in Integer; + Text : in String) return Double_Window is begin return This : Double_Window do This.Void_Ptr := new_fl_double_window2 (Interfaces.C.int (W), - Interfaces.C.int (H)); + Interfaces.C.int (H), + Interfaces.C.To_C (Text)); fl_group_end (This.Void_Ptr); fl_widget_set_user_data (This.Void_Ptr, |