From 90e41c14a5e7fba3c6ad25afe729ba6bdbd73f88 Mon Sep 17 00:00:00 2001 From: Charles Date: Sun, 8 Dec 2019 12:24:57 +0100 Subject: Game over if move in snake body --- graphics.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'graphics.adb') diff --git a/graphics.adb b/graphics.adb index dba73b9..1381afc 100644 --- a/graphics.adb +++ b/graphics.adb @@ -7,7 +7,6 @@ with SDL.Video.Rectangles; with SDL.Events; with SDL.Events.Events; with SDL.Events.Keyboards; -use SDL.Events.Keyboards; with SDL.Video.Windows; with SDL.Video.Windows.Makers; with SDL.Video.Renderers; @@ -58,6 +57,7 @@ package body Graphics is end Run; procedure Event_Handler(state: in out T_State) is + use SDL.Events.Keyboards; event: SDL.Events.Events.Events; begin while SDL.Events.Events.Poll(event) loop -- cgit