All File/Edit functions working, just need to add Search/About menu stuff

1 files changed, 28 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk-widgets-groups-windows.adb b/src/fltk_binding/fltk-widgets-groups-windows.adb
index 1c29f9b..4ecda66 100644
--- a/src/fltk_binding/fltk-widgets-groups-windows.adb
+++ b/src/fltk_binding/fltk-widgets-groups-windows.adb
@@ -27,6 +27,15 @@ package body FLTK.Widgets.Groups.Windows is
            (W : in System.Address);
     pragma Import (C, fl_window_show, "fl_window_show");
 
+    procedure fl_window_hide
+           (W : in System.Address);
+    pragma Import (C, fl_window_hide, "fl_window_hide");
+
+    procedure fl_window_set_label
+           (W : in System.Address;
+            T : in Interfaces.C.char_array);
+    pragma Import (C, fl_window_set_label, "fl_window_set_label");
+
 
 
 
@@ -91,5 +100,24 @@ package body FLTK.Widgets.Groups.Windows is
     end Show;
 
 
+
+
+    procedure Hide
+           (This : in Window) is
+    begin
+        fl_window_hide (This.Void_Ptr);
+    end Hide;
+
+
+
+
+    procedure Set_Label
+           (This : in out Window;
+            Text : in     String) is
+    begin
+        fl_window_set_label (This.Void_Ptr, Interfaces.C.To_C (Text));
+    end Set_Label;
+
+
 end FLTK.Widgets.Groups.Windows;