Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

226 lines (136 sloc) 5.578 kB
#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 view-has-attr? update-view-attr remove-view-attr
view-css update-view-css
view-width view-height
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 (view-has-attr? v attr-name)
(error 'view-has-attr? "Please run in JavaScript context."))
(define (update-view-attr v attr-name value)
(error 'update-view-attr "Please run in JavaScript context."))
(define (remove-view-attr v attr-name)
(error 'remove-view-attr "Please run in JavaScript context."))
(define (view-css v attr-name)
(error 'view-css "Please run in JavaScript context."))
(define (view-width v)
(error 'view-width "Please run in JavaScript context."))
(define (view-height v)
(error 'view-height "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."))
Jump to Line
Something went wrong with that request. Please try again.