diff options
| -rw-r--r-- | examples/simple.scm | 8 |
1 files changed, 6 insertions, 2 deletions
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))) |