summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2020-10-06 18:58:12 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2020-10-06 18:58:12 -0400
commita1a001a83764a838d43cf5a38ed4e3f26df3a5d5 (patch)
tree635b1b55b1bd6823a7837e392ea736a98a0d5da9 /examples
parentc808d99f048daf4284e1ab431166347dc5456706 (diff)
scene: Remove scancode arg from key press/release methods.
Diffstat (limited to 'examples')
-rw-r--r--examples/shmup/shmup.scm4
-rw-r--r--examples/tetra/tetra.scm2
2 files changed, 3 insertions, 3 deletions
diff --git a/examples/shmup/shmup.scm b/examples/shmup/shmup.scm
index 135027b..b15ef7c 100644
--- a/examples/shmup/shmup.scm
+++ b/examples/shmup/shmup.scm
@@ -814,7 +814,7 @@
(resume (& shmup player))
(for-each resume (enemies shmup)))
-(define-method (on-key-press (shmup <shmup>) key scancode modifiers repeat?)
+(define-method (on-key-press (shmup <shmup>) key modifiers repeat?)
(match (state shmup)
('play
(match key
@@ -835,7 +835,7 @@
(_ #f)))
(_ #f)))
-(define-method (on-key-release (shmup <shmup>) key scancode modifiers)
+(define-method (on-key-release (shmup <shmup>) key modifiers)
(match (state shmup)
('play
(match key
diff --git a/examples/tetra/tetra.scm b/examples/tetra/tetra.scm
index b02aeea..5723b31 100644
--- a/examples/tetra/tetra.scm
+++ b/examples/tetra/tetra.scm
@@ -662,7 +662,7 @@ area next to the board."
(when game-over-container
(detach game-over-container))))
-(define-method (on-key-press (tetra <tetra>) key scancode modifiers repeat?)
+(define-method (on-key-press (tetra <tetra>) key modifiers repeat?)
(match (state tetra)
('play
(match key