From 6e5b33a195324bd33d946cad15844139d1ba9650 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 15 May 2018 16:47:35 +1000
Subject: Updated to bring into line with FLTK binding

---
 src/displays.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/displays.ads')

diff --git a/src/displays.ads b/src/displays.ads
index 89e4542..22f3bed 100644
--- a/src/displays.ads
+++ b/src/displays.ads
@@ -21,7 +21,7 @@ package Displays is
 
 
     type Keyboard_Callback is access function
-           (Key : in FLTK.Shortcut_Key)
+           (Key : in FLTK.Key_Combo)
         return FLTK.Event_Outcome;
 
     type Mouse_Callback is access function
@@ -109,7 +109,7 @@ private
 
 
     Logo : FLTK.Images.RGB.PNG.PNG_Image :=
-        FLTK.Images.RGB.PNG.Create (Misc.Origin & "/../share/sokoban/img/man.png");
+        FLTK.Images.RGB.PNG.Forge.Create (Misc.Origin & "/../share/sokoban/img/man.png");
 
 
     Text_Size : constant FLTK.Font_Size := 12;
-- 
cgit