57 lines
1.5 KiB
Racket
57 lines
1.5 KiB
Racket
#lang s-exp "../lang/js/js.rkt"
|
|
|
|
|
|
;; Make sure the resource library is loaded, as well as the event structure library.
|
|
(require "../resource.rkt" "event.rkt")
|
|
|
|
(declare-implementation
|
|
#:racket "racket-impl.rkt"
|
|
#:javascript ("js-tree-cursor.js"
|
|
"js-impl.js")
|
|
#:provided-values (big-bang
|
|
|
|
;; initial view
|
|
initial-view
|
|
|
|
;; stop-when handler
|
|
stop-when
|
|
|
|
;; clock tick handler
|
|
on-tick
|
|
|
|
;; location changes
|
|
on-mock-location-change
|
|
|
|
;; location changes (for real!)
|
|
on-location-change
|
|
|
|
;; draw and update the view
|
|
to-draw
|
|
|
|
;; coerse to view
|
|
->view
|
|
|
|
view-focus
|
|
view-left
|
|
view-right
|
|
view-up
|
|
view-down
|
|
|
|
view-text
|
|
update-view-text
|
|
|
|
view-bind
|
|
|
|
view-show
|
|
view-hide
|
|
|
|
view-attr
|
|
update-view-attr
|
|
|
|
view-id
|
|
|
|
view-form-value
|
|
update-view-form-value
|
|
view-append-child
|
|
))
|