diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-13 09:36:52 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-13 09:36:52 -0500 |
| commit | 54c6831e9dd19489ce3275eb68e5781c5899c26b (patch) | |
| tree | 8b17af591db76d298ebeb6fd3d37c8958414d3cd /src/video.ads | |
| parent | 3465042dc2a80f4090d6cf6b65ddc33ee4e48b55 (diff) | |
wip scroll support
Diffstat (limited to 'src/video.ads')
| -rw-r--r-- | src/video.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/video.ads b/src/video.ads index ec9b212..49d3c95 100644 --- a/src/video.ads +++ b/src/video.ads @@ -24,6 +24,9 @@ package Video is procedure Finish; procedure Poll_Events; + procedure Scroll_Right; + procedure Scroll_Left; + function Key_Down (K : Key) return Boolean; function Key_Up (K : Key) return Boolean; function Is_Running return Boolean; |