27 lines
598 B
Racket
27 lines
598 B
Racket
#lang s-exp "../lang/js/js.rkt"
|
|
|
|
|
|
;; Make sure the resource library is loaded.
|
|
(require "../resource.rkt")
|
|
|
|
|
|
(declare-implementation
|
|
#:racket "racket-impl.rkt"
|
|
#:javascript ("js-impl.js")
|
|
#:provided-values (big-bang
|
|
|
|
;; initial view
|
|
initial-view
|
|
|
|
;; stop-when handler
|
|
stop-when
|
|
|
|
;; clock tick handler
|
|
on-tick
|
|
|
|
;; draw and update the view
|
|
to-draw
|
|
|
|
;; coerse to view
|
|
->view))
|