89 lines
2.1 KiB
Racket
89 lines
2.1 KiB
Racket
#lang racket/base
|
|
|
|
(provide big-bang initial-view stop-when on-tick to-draw
|
|
->view
|
|
view-focus
|
|
view-left view-right view-up view-down
|
|
view-text update-view-text
|
|
view-attr update-view-attr
|
|
view-bind
|
|
|
|
view-form-value
|
|
update-view-form-value
|
|
|
|
view-show
|
|
view-hide
|
|
)
|
|
|
|
|
|
(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 (to-draw w)
|
|
(error 'to-draw "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-text v)
|
|
(error 'view-text "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-left v)
|
|
(error 'view-left))
|
|
|
|
(define (view-right v)
|
|
(error 'view-right))
|
|
|
|
(define (view-up v)
|
|
(error 'view-up))
|
|
|
|
(define (view-down v)
|
|
(error 'view-down))
|
|
|
|
|
|
|
|
(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-bind v type worldF)
|
|
(error 'view-bind "Please run in JavaScript context."))
|
|
|
|
(define (view-form-value)
|
|
(error 'view-form-value "Please run in JavaScript context."))
|
|
|
|
(define (update-view-form-value val)
|
|
(error 'view-form-value "Please run in JavaScript context."))
|
|
|
|
|
|
(define (view-show)
|
|
(error 'view-show "Please run in JavaScript context."))
|
|
|
|
(define (view-hide)
|
|
(error 'view-hide "Please run in JavaScript context."))
|