From 3ae0550bc73ab825a65d98eeda1c2d2431c4ecfb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 21 Jul 2013 22:22:23 -0400
Subject: Update examples to reflect changes in keyboard events.

---
 examples/animation.scm | 3 +--
 examples/coroutine.scm | 4 +---
 examples/particles.scm | 4 +---
 examples/simple.scm    | 6 ++----
 examples/tilemap.scm   | 4 +---
 5 files changed, 6 insertions(+), 15 deletions(-)

(limited to 'examples')

diff --git a/examples/animation.scm b/examples/animation.scm
index df713c5..b27d07f 100644
--- a/examples/animation.scm
+++ b/examples/animation.scm
@@ -2,7 +2,6 @@
              (2d game-loop)
              (2d window)
              (2d vector)
-             (2d input)
              (2d helpers))
 
 (init-2d)
@@ -12,7 +11,7 @@
 (define sprite #f)
 
 (define (key-down key mod unicode)
-  (cond ((any-equal? key (keycode escape) (keycode q))
+  (cond ((any-equal? key 'escape 'q)
          (close-window)
          (quit))))
 
diff --git a/examples/coroutine.scm b/examples/coroutine.scm
index bb3f6ab..d2a53d3 100644
--- a/examples/coroutine.scm
+++ b/examples/coroutine.scm
@@ -6,8 +6,6 @@
              (2d sprite)
              (2d game-loop)
              (2d window)
-             (2d vector)
-             (2d input)
              (2d helpers)
              (2d agenda)
              (2d coroutine))
@@ -19,7 +17,7 @@
 (define sprite #f)
 
 (define (key-down key mod unicode)
-  (cond ((any-equal? key (keycode escape) (keycode q))
+  (cond ((any-equal? key 'escape 'q)
          (close-window)
          (quit))))
 
diff --git a/examples/particles.scm b/examples/particles.scm
index 8e6d11e..555e185 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -2,14 +2,12 @@
 (use-modules ((sdl sdl) #:prefix SDL:)
              (figl gl)
              (srfi srfi-1)
-             (srfi srfi-2)
              (srfi srfi-9)
              (ice-9 format)
              (2d sprite)
              (2d game-loop)
              (2d window)
              (2d vector)
-             (2d input)
              (2d helpers))
 
 (set! *random-state* (random-state-from-platform))
@@ -69,7 +67,7 @@
 (set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode)))
 
 (define (key-down key mod unicode)
-  (cond ((any-equal? key (keycode escape) (keycode q))
+  (cond ((any-equal? key 'escape 'q)
          (close-window)
          (quit))))
 
diff --git a/examples/simple.scm b/examples/simple.scm
index c5d25f1..ad98548 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -3,9 +3,7 @@
              (2d sprite)
              (2d game-loop)
              (2d window)
-             (2d input)
-             (2d helpers)
-             (ice-9 format))
+             (2d helpers))
 
 (init-2d)
 
@@ -14,7 +12,7 @@
 (define sprite #f)
 
 (define (key-down key mod unicode)
-  (cond ((any-equal? key (keycode escape) (keycode q))
+  (cond ((any-equal? key 'escape 'q)
          (close-window)
          (quit))))
 
diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 49106b0..cbe6e86 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -2,12 +2,10 @@
              (srfi srfi-1)
              (srfi srfi-9)
              (srfi srfi-42)
-             (ice-9 format)
              (2d sprite)
              (2d game-loop)
              (2d window)
              (2d vector)
-             (2d input)
              (2d helpers))
 
 (init-2d)
@@ -77,7 +75,7 @@
     (list->array 2 sprites)))
 
 (define (key-down key mod unicode)
-  (cond ((any-equal? key (keycode escape) (keycode q))
+  (cond ((any-equal? key 'escape 'q)
          (close-window)
          (quit))))
 
-- 
cgit v1.2.3