From ede7482f170d498d0a2129da6e81ff4764e366e2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 28 Jul 2017 00:03:19 +1000
Subject: Logo file now better integrated

---
 src/windows.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/windows.adb')

diff --git a/src/windows.adb b/src/windows.adb
index 3c2020d..eff387d 100644
--- a/src/windows.adb
+++ b/src/windows.adb
@@ -12,6 +12,16 @@ package body Windows is
 
 
 
+    procedure Set_Logo
+           (This : in out Window;
+            Logo : in out FLTK.Images.RGB.PNG.PNG_Image) is
+    begin
+        This.Set_Icon (Logo);
+    end Set_Logo;
+
+
+
+
     --  used to hide about/find/replace/etc windows instead
     --  of constantly creating and destroying them
 
-- 
cgit