1 files changed, 10 insertions, 0 deletions
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