From 5ba6eaff39f79ebd8c843b801fde7752e48aca26 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 21 Jul 2013 22:38:49 -0400 Subject: Update simple demo. --- examples/simple.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'examples/simple.scm') diff --git a/examples/simple.scm b/examples/simple.scm index ad98548..bcc94b7 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -11,16 +11,20 @@ (define window-height 600) (define sprite #f) +(define (quit-demo) + (close-window) + (quit)) + (define (key-down key mod unicode) (cond ((any-equal? key 'escape 'q) - (close-window) - (quit)))) + (quit-demo)))) ;; Draw our sprite (define (render) (draw-sprite sprite)) ;; Register callbacks. +(set-quit-callback (lambda () (quit))) (set-render-callback (lambda () (render))) (set-key-down-callback (lambda (key mod unicode) (key-down key mod unicode))) -- cgit v1.2.3