summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-groups-windows.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-groups-windows.adb')
-rw-r--r--src/fltk-widgets-groups-windows.adb29
1 files changed, 29 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb
index 130b87a..5e399e2 100644
--- a/src/fltk-widgets-groups-windows.adb
+++ b/src/fltk-widgets-groups-windows.adb
@@ -42,6 +42,16 @@ package body FLTK.Widgets.Groups.Windows is
(W : in System.Address);
pragma Import (C, fl_window_hide, "fl_window_hide");
+ function fl_window_get_border
+ (W : in System.Address)
+ return Interfaces.C.unsigned;
+ pragma Import (C, fl_window_get_border, "fl_window_get_border");
+
+ procedure fl_window_set_border
+ (W : in System.Address;
+ S : in Interfaces.C.int);
+ pragma Import (C, fl_window_set_border, "fl_window_set_border");
+
procedure fl_window_set_label
(W : in System.Address;
T : in Interfaces.C.char_array);
@@ -154,6 +164,25 @@ package body FLTK.Widgets.Groups.Windows is
+ function Get_Border
+ (This : in Window)
+ return Border_State is
+ begin
+ return Border_State'Val (fl_window_get_border (This.Void_Ptr));
+ end Get_Border;
+
+
+
+ procedure Set_Border
+ (This : in out Window;
+ To : in Border_State) is
+ begin
+ fl_window_set_border (This.Void_Ptr, Border_State'Pos (To));
+ end Set_Border;
+
+
+
+
procedure Set_Label
(This : in out Window;
Text : in String) is