Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

41 lines (27 sloc) 0.984 kB
#lang s-exp "../lang/base.rkt"
(provide big-bang
to-draw
on-tick
on-mouse
on-key
key=?
stop-when)
;; Fixme: the errors below need to be replaced with 2htdp/world-based
;; implementations.
(define (big-bang initial-world . args)
(error 'big-bang "must be run in JavaScript context"))
(define on-tick
(case-lambda [(handler)
(error 'on-tick "must be run in JavaScript context")]
[(handler interval)
(error 'on-tick "must be run in JavaScript context")]))
(define (on-mouse handle)
(error 'on-mouse "must be run in JavaScript context"))
(define (to-draw handler)
(error 'to-draw "must be run in JavaScript context"))
(define (on-key handler)
(error 'on-key "must be run in JavaScript context"))
(define (key=? key-1 key-2)
(error 'key=? "must be run in JavaScript context"))
(define (stop-when handler)
(error 'stop-when "must be run in JavaScript context"))
Jump to Line
Something went wrong with that request. Please try again.