Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | use display-condition instead of our print-condition, improved repl |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
1cb1fedb47a0e1bb969f43ae7a2d597f |
User & Date: | aldo 2016-09-06 09:06:17 |
Context
2016-09-06
| ||
09:07 | added support for z-index css check-in: 989c34f966 user: aldo tags: trunk | |
09:06 | use display-condition instead of our print-condition, improved repl check-in: 1cb1fedb47 user: aldo tags: trunk | |
2016-09-04
| ||
14:45 | little fixes check-in: e53e9815ac user: aldo tags: trunk | |
Changes
Changes to event-loop.ss.
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
(mi-el el)
(mi-element-w-set! el (mi-window-width))
(mi-element-h-set! el (mi-window-height))
(mi-element-x-set! el 0)
(mi-element-y-set! el 0)
(mi-element-position-set! el 'absolute))
(guard (x [else (printf "ERROR IN RENDER ") (print-condition x) #;(sleep-s 1) #f])
(render-stuff))
(let poll-event-loop ()
(sdl-let-ref-call
sdl-poll-event ((e sdl-event-t &)) result
;(printf "~d ~d\n" e result)
(when (not (zero? result))
|
| |
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
(mi-el el) (mi-element-w-set! el (mi-window-width)) (mi-element-h-set! el (mi-window-height)) (mi-element-x-set! el 0) (mi-element-y-set! el 0) (mi-element-position-set! el 'absolute)) (guard (x [else (printf "ERROR IN RENDER ") (display-condition x)(newline) #;(sleep-s 1) #f]) (render-stuff)) (let poll-event-loop () (sdl-let-ref-call sdl-poll-event ((e sdl-event-t &)) result ;(printf "~d ~d\n" e result) (when (not (zero? result)) |
Changes to repl.ss.
28 29 30 31 32 33 34 35 36 37 38 39 40 |
(printf "in my-local-repl ~d~n" (utf8->string (unbox buf))) (with-input-from-string (utf8->string (unbox buf)) (lambda () (let ([pr (call-with-string-output-port (lambda (p) (parameterize ([current-output-port p]) (guard (e [else (print-condition e) ]) (let* ([token (read)] [x (eval token (interaction-environment))]) (pretty-print x))))))]) (nn-send my-local-repl-sock (string->utf8 pr) 0))))))))) |
| > | > | | > | |
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
(printf "in my-local-repl ~d~n" (utf8->string (unbox buf))) (with-input-from-string (utf8->string (unbox buf)) (lambda () (let ([pr (call-with-string-output-port (lambda (p) (parameterize ([current-output-port p]) (guard (e [else (display-condition e)(newline) ]) (let loop () (let ([token (read)]) (unless (eof-object? token) (let ([x (eval token (interaction-environment))]) (pretty-print x)(newline) (loop)))))))))]) (nn-send my-local-repl-sock (string->utf8 pr) 0))))))))) |