213 lines
5.0 KiB
Racket
213 lines
5.0 KiB
Racket
#lang racket/base
|
|
|
|
(provide big-bang initial-view stop-when
|
|
on-tick
|
|
on-location-change on-mock-location-change
|
|
to-draw
|
|
|
|
->view
|
|
view?
|
|
|
|
view-focus? view-focus
|
|
view-left view-right view-up view-down
|
|
view-left? view-right? view-up? view-down?
|
|
|
|
view-forward?
|
|
view-forward
|
|
view-backward?
|
|
view-backward
|
|
|
|
view-text update-view-text
|
|
view-attr update-view-attr
|
|
view-css update-view-css
|
|
view-id
|
|
|
|
view-bind
|
|
|
|
view-form-value
|
|
update-view-form-value
|
|
|
|
view-show
|
|
view-hide
|
|
view-append-child
|
|
view-insert-right
|
|
view-insert-left
|
|
|
|
|
|
|
|
|
|
view-remove
|
|
|
|
open-output-element
|
|
|
|
xexp?
|
|
xexp->dom
|
|
view->xexp
|
|
)
|
|
|
|
|
|
(define (big-bang world . handlers)
|
|
(error 'big-bang "Please run in JavaScript context."))
|
|
|
|
(define (initial-view a-view-or-resource)
|
|
(error 'initial-view "Please run in JavaScript context."))
|
|
|
|
(define (stop-when f)
|
|
(error 'stop-when "Please run in JavaScript context."))
|
|
|
|
(define on-tick
|
|
(case-lambda [(f)
|
|
(error 'on-tick "Please run in JavaScript context.")]
|
|
[(f delay)
|
|
(error 'on-tick "Please run in JavaScript context.")]))
|
|
|
|
|
|
(define on-location-change
|
|
(case-lambda [(f)
|
|
(error 'on-location-change "Please run in JavaScript context.")]
|
|
[(f delay)
|
|
(error 'on-location-change "Please run in JavaScript context.")]))
|
|
|
|
|
|
(define on-mock-location-change
|
|
(case-lambda [(f)
|
|
(error 'on-mock-location-change "Please run in JavaScript context.")]
|
|
[(f delay)
|
|
(error 'on-mock-location-change "Please run in JavaScript context.")]))
|
|
|
|
|
|
|
|
(define (to-draw w)
|
|
(error 'to-draw "Please run in JavaScript context."))
|
|
|
|
(define (->view x)
|
|
(error '->view "Please run in JavaScript context."))
|
|
|
|
(define (view? x)
|
|
(error 'view? "Please run in JavaScript context."))
|
|
|
|
|
|
|
|
(define (view-focus? v selector)
|
|
(error 'view-focus? "Please run in JavaScript context."))
|
|
|
|
(define (view-focus v selector)
|
|
(error 'view-focus "Please run in JavaScript context."))
|
|
|
|
(define (view-text v)
|
|
(error 'view-text "Please run in JavaScript context."))
|
|
|
|
|
|
|
|
(define (view-left v)
|
|
(error 'view-left "Please run in JavaScript context."))
|
|
|
|
(define (view-right v)
|
|
(error 'view-right "Please run in JavaScript context."))
|
|
|
|
(define (view-up v)
|
|
(error 'view-up "Please run in JavaScript context"))
|
|
|
|
(define (view-down v)
|
|
(error 'view-down "Please run in JavaScript context"))
|
|
|
|
|
|
|
|
(define (view-left? v)
|
|
(error 'view-left? "Please run in JavaScript context."))
|
|
|
|
(define (view-right? v)
|
|
(error 'view-right? "Please run in JavaScript context."))
|
|
|
|
(define (view-up? v)
|
|
(error 'view-up? "Please run in JavaScript context"))
|
|
|
|
(define (view-down? v)
|
|
(error 'view-down? "Please run in JavaScript context"))
|
|
|
|
(define (view-forward? v)
|
|
(error 'view-forward? "Please run in JavaScript context"))
|
|
|
|
(define (view-backward? v)
|
|
(error 'view-backward? "Please run in JavaScript context"))
|
|
|
|
(define (view-forward v)
|
|
(error 'view-forward "Please run in JavaScript context"))
|
|
|
|
(define (view-backward v)
|
|
(error 'view-backward "Please run in JavaScript context"))
|
|
|
|
|
|
|
|
|
|
|
|
(define (update-view-text v text)
|
|
(error 'update-view-text "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-attr v attr-name)
|
|
(error 'view-attr "Please run in JavaScript context."))
|
|
|
|
(define (update-view-attr v attr-name value)
|
|
(error 'update-view-attr "Please run in JavaScript context."))
|
|
|
|
|
|
|
|
|
|
(define (view-css v attr-name)
|
|
(error 'view-css "Please run in JavaScript context."))
|
|
|
|
(define (update-view-css v attr-name value)
|
|
(error 'update-view-css "Please run in JavaScript context."))
|
|
|
|
|
|
|
|
(define (view-id v)
|
|
(error 'view-id "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-bind v type worldF)
|
|
(error 'view-bind "Please run in JavaScript context."))
|
|
|
|
(define (view-form-value view)
|
|
(error 'view-form-value "Please run in JavaScript context."))
|
|
|
|
(define (update-view-form-value view val)
|
|
(error 'view-form-value "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-show view)
|
|
(error 'view-show "Please run in JavaScript context."))
|
|
|
|
(define (view-hide view)
|
|
(error 'view-hide "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-remove view)
|
|
(error 'view-delete "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-append-child view dom)
|
|
(error 'view-append "Please run in JavaScript context."))
|
|
|
|
(define (view-insert-right view dom)
|
|
(error 'view-insert-right "Please run in JavaScript context."))
|
|
|
|
(define (view-insert-left view dom)
|
|
(error 'view-insert-left "Please run in JavaScript context."))
|
|
|
|
|
|
(define (open-output-element id)
|
|
(error 'open-output-element "Please run in JavaScript context."))
|
|
|
|
|
|
(define (xexp? x)
|
|
(error 'xexp? "Please run in JavaScript context."))
|
|
|
|
(define (xexp->dom x)
|
|
(error 'xexp->dom "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view->xexp x)
|
|
(error 'view->xexp "Please run in JavaScript context."))
|