diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-11 17:22:15 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-11 17:22:15 -0500 |
| commit | ca965d766ada49ccddc9c6da388cf223ec04ba3f (patch) | |
| tree | a19095c5e98221d6970ba836c78a1534b7f3c1c5 /src/video.ads | |
| parent | 1bd0c44fca6abb9d881b420b951ccac284a2c6cb (diff) | |
render and polling improvements
Diffstat (limited to 'src/video.ads')
| -rw-r--r-- | src/video.ads | 2 |
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; |