#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
         view-append-child
         )


(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."))


(define (view-append-child dom)
  (error 'view-append "Please run in JavaScript context."))