Added window border methods to Window widget

1 files changed, 13 insertions, 0 deletions

diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads
index 2963c4e..eea2a6e 100644
--- a/src/fltk-widgets-groups-windows.ads
+++ b/src/fltk-widgets-groups-windows.ads
@@ -9,6 +9,9 @@ package FLTK.Widgets.Groups.Windows is
     type Window is new Group with private;
 
 
+    type Border_State is (None, Visible);
+
+
     function Create
            (X, Y, W, H : in Integer;
             Text       : in String)
@@ -28,6 +31,16 @@ package FLTK.Widgets.Groups.Windows is
            (This : in Window);
 
 
+    function Get_Border
+           (This : in Window)
+        return Border_State;
+
+
+    procedure Set_Border
+           (This : in out Window;
+            To   : in     Border_State);
+
+
     procedure Set_Label
            (This : in out Window;
             Text : in     String);