1 files changed, 2 insertions, 0 deletions
diff --git a/src/video.ads b/src/video.ads
index b6be6c8..32f7683 100644
--- a/src/video.ads
+++ b/src/video.ads
@@ -21,11 +21,13 @@ package Video is
    procedure Initialize;
    procedure Display;
    procedure Finish;
+   procedure Poll_Events;
 
    function Key_Down (K : Key) return Boolean;
    function Key_Up (K : Key) return Boolean;
    function Is_Running return Boolean;
    function Toggle_Pixel (X, Y : sfUint32) return Boolean;
+   function Next_Key return Key;
 
 private
    Keys           : Key_Map;