From f28f819c721fa5a317e23b3cc1eefb938115b47a Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 5 Oct 2016 15:44:17 +1100
Subject: Added logo, made find/replace/about windows attention grabbing

---
 fltk-widgets-groups-windows.adb | 43 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

(limited to 'fltk-widgets-groups-windows.adb')

diff --git a/fltk-widgets-groups-windows.adb b/fltk-widgets-groups-windows.adb
index a0262e1..2d93bdd 100644
--- a/fltk-widgets-groups-windows.adb
+++ b/fltk-widgets-groups-windows.adb
@@ -2,6 +2,7 @@
 
 with Interfaces.C;
 with System;
+with FLTK.Images.RGB;
 use type System.Address;
 
 
@@ -41,6 +42,18 @@ package body FLTK.Widgets.Groups.Windows is
             LW, LH, HW, HH, DW, DH, A : in Interfaces.C.int);
     pragma Import (C, fl_window_size_range, "fl_window_size_range");
 
+    procedure fl_window_set_icon
+           (W, P : in System.Address);
+    pragma Import (C, fl_window_set_icon, "fl_window_set_icon");
+
+    procedure fl_window_set_modal
+           (W : in System.Address);
+    pragma Import (C, fl_window_set_modal, "fl_window_set_modal");
+
+    procedure fl_window_set_non_modal
+           (W : in System.Address);
+    pragma Import (C, fl_window_set_non_modal, "fl_window_set_non_modal");
+
 
 
 
@@ -144,5 +157,35 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Size_Range;
 
 
+
+
+    procedure Set_Icon
+           (This : in out Window;
+            Pic  : in out FLTK.Images.RGB.RGB_Image'Class) is
+    begin
+        fl_window_set_icon
+               (This.Void_Ptr,
+                Wrapper (Pic).Void_Ptr);
+    end Set_Icon;
+
+
+
+
+    procedure Set_Modal
+           (This : in out Window) is
+    begin
+        fl_window_set_modal (This.Void_Ptr);
+    end Set_Modal;
+
+
+
+
+    procedure Set_Non_Modal
+           (This : in out Window) is
+    begin
+        fl_window_set_non_modal (This.Void_Ptr);
+    end Set_Non_Modal;
+
+
 end FLTK.Widgets.Groups.Windows;
 
-- 
cgit