From 76f20d2f2f7e9ffb99c3ef94021cd9181e31c0cf Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 30 May 2017 19:39:56 +1000
Subject: Added window border methods to Window widget

---
 src/fltk-widgets-groups-windows.ads | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/fltk-widgets-groups-windows.ads')

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);
-- 
cgit