summaryrefslogtreecommitdiff
path: root/examples/simple.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-07-28 19:38:12 -0400
committerDavid Thompson <dthompson2@worcester.edu>2013-07-28 19:38:12 -0400
commit60f10e08308a6a8df543268db59f580ddc27c743 (patch)
tree3202ed51a2be4d832727fab1e51fab3cda4bd538 /examples/simple.scm
parentdb8d684650365a2e39e6607edcdb167fdf9f81b7 (diff)
Update examples.
Diffstat (limited to 'examples/simple.scm')
-rw-r--r--examples/simple.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/simple.scm b/examples/simple.scm
index 09f9870..c55de6f 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -22,9 +22,9 @@
(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)))
+(add-hook! on-quit-hook (lambda () (quit-demo)))
+(add-hook! on-render-hook (lambda () (render)))
+(add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode)))
;; Open the window.
(open-window window-width window-height)