From 607e537eaa8614ff9338d7aece5044d98c421584 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 13 Dec 2018 21:32:32 -0500 Subject: Re-add key-pressed? and key-released? procedures. * chickadee.scm (key-pressed?, key-released?): New procedures. * examples/grid.scm: Remove (sdl2 input keyboard) import. --- chickadee.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'chickadee.scm') diff --git a/chickadee.scm b/chickadee.scm index 3c10880..73aeae9 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -25,6 +25,7 @@ #:use-module (sdl2) #:use-module (sdl2 events) #:use-module (sdl2 input game-controller) + #:use-module ((sdl2 input keyboard) #:prefix sdl2:) #:use-module (sdl2 input joystick) #:use-module (sdl2 input text) #:use-module (sdl2 mixer) @@ -36,10 +37,20 @@ #:use-module (chickadee render gl) #:use-module (chickadee render gpu) #:use-module (chickadee render viewport) - #:export (current-window + #:export (key-pressed? + key-released? + current-window run-game) #:re-export (abort-game)) +(define (key-pressed? key) + "Return #t if KEY is currently being pressed." + (sdl2:key-pressed? key)) + +(define (key-released? key) + "Return #t if KEY is not currently being pressed." + (sdl2:key-released? key)) + (define *controllers* (make-hash-table)) (define (lookup-controller joystick-id) -- cgit v1.2.3