suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rackety

Browse Source
This commit is contained in:
Robby Findler 2012-12-21 19:22:28 -06:00
parent 2fced5d7d6
commit 19d6f7a15a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -141,7 +141,7 @@
(tellv app finishLaunching) (tellv app finishLaunching)
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Create an event to post when MzScheme has been sleeping but is ;; Create an event to post when Racket has been sleeping but is
;; ready to wake up ;; ready to wake up
(import-class NSEvent) (import-class NSEvent)
@ -162,7 +162,7 @@
;; This callback will be invoked by the CoreFoundation run loop ;; This callback will be invoked by the CoreFoundation run loop
;; when data is available on `ready_sock', which is used to indicate ;; when data is available on `ready_sock', which is used to indicate
;; that MzScheme would like to wake up (and posting a Cocoa event ;; that Racket would like to wake up (and posting a Cocoa event
;; causes the event-getting function to unblock). ;; causes the event-getting function to unblock).
(define (socket_callback) (define (socket_callback)
(read2 ready_sock read-buf 1) (read2 ready_sock read-buf 1)
@ -170,7 +170,7 @@
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Create a pipe's pair of file descriptors, used to communicate ;; Create a pipe's pair of file descriptors, used to communicate
;; from the MzScheme-sleep thread to the CoreFoundation run loop. ;; from the Racket-sleep thread to the CoreFoundation run loop.
(define pipe2 (get-ffi-obj 'pipe #f (_fun _pointer -> _int))) (define pipe2 (get-ffi-obj 'pipe #f (_fun _pointer -> _int)))
(define write2 (get-ffi-obj 'write #f (_fun _int _pointer _long -> _long))) (define write2 (get-ffi-obj 'write #f (_fun _int _pointer _long -> _long)))
@ -409,7 +409,7 @@
(dispatch-all-ready))) (dispatch-all-ready)))
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Install an alternate "sleep" function (in the PLT Scheme core) ;; Install an alternate "sleep" function (in the Racket core)
;; that wakes up if any Cocoa event is ready. ;; that wakes up if any Cocoa event is ready.
(define-mz scheme_start_sleeper_thread (_fun _fpointer _float _pointer _int -> _void)) (define-mz scheme_start_sleeper_thread (_fun _fpointer _float _pointer _int -> _void))