44 lines
1.3 KiB
Racket
44 lines
1.3 KiB
Racket
#lang racket/base
|
|
|
|
(provide big-bang initial-view stop-when on-tick to-draw
|
|
->view view-focus view-text update-view-text
|
|
view-attr update-view-attr)
|
|
|
|
(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 (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.")) |