1 files changed, 13 insertions, 0 deletions
diff --git a/src/adapad.adb b/src/adapad.adb
index c9ff4e3..6a725c3 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -47,6 +47,19 @@ package body Adapad is
 
     --  main program interface
 
+    procedure Set_Logo
+           (Pic : in out FLTK.Images.RGB.PNG.PNG_Image) is
+    begin
+        Editor.Set_Logo (Pic);
+        About.Set_Logo (Pic);
+        Find.Set_Logo (Pic);
+        Replace.Set_Logo (Pic);
+        Jump.Set_Logo (Pic);
+    end Set_Logo;
+
+
+
+
     procedure Show is
     begin
         Editor.Show;