1 files changed, 0 insertions, 13 deletions
diff --git a/src/adapad.adb b/src/adapad.adb
index 84ada4e..1379a0c 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -53,19 +53,6 @@ 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;