Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

40 lines (29 sloc) 1.113 kB
(c-declare "#import \"EAGLView.h\"")
(define (high-res?)
((c-lambda (UIView*) bool "___result = [___arg1 isHighRes];")
(current-view)))
(define (goto-full-version)
((c-lambda (UIView*) void "[___arg1 gotoFullVersion];")
(current-view)))
(define (hide-info-button)
((c-lambda (UIView*) void "[___arg1 hideInfoButton];")
(current-view)))
(define (show-info-button)
((c-lambda (UIView*) void "[___arg1 showInfoButton];")
(current-view)))
(define (hide-high-score-field)
((c-lambda (UIView*) void "[___arg1 hideHighScoreField];")
(current-view)))
(define (show-high-score-field x y)
((c-lambda (UIView* int int) void
"[___arg1 showHighScoreField:___arg2 y:___arg3];")
(current-view) x y))
(define (high-score-field-value)
((c-lambda (UIView*) char-string "___result = [___arg1 highScoreFieldValue];")
(current-view)))
(define (submit-high-score score)
((c-lambda (UIView* int) void "[___arg1 submitHighScore: ___arg2];")
(current-view) score))
(define (fetch-global-scores)
((c-lambda (UIView*) void "[___arg1 fetchGlobalScores];")
(current-view)))
Jump to Line
Something went wrong with that request. Please try again.