From ca965d766ada49ccddc9c6da388cf223ec04ba3f Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sat, 11 Jan 2025 17:22:15 -0500
Subject: render and polling improvements

---
 src/video.ads | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/video.ads')

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;
-- 
cgit v1.2.3