From ede7482f170d498d0a2129da6e81ff4764e366e2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Jul 2017 00:03:19 +1000 Subject: Logo file now better integrated --- src/adapad.adb | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src/adapad.adb') 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; -- cgit